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ABSTRACT 


This  report  describes  a  real-time  multiprogramming 
software  system  for  a  DEC  339  computer  display  terminal,  which 
may  communicate  with  an  external  computer  through  a  serial- 
synchronous  data  set.  The  system  is  designed  to  support  both 
programs  which  require  the  attention  of  an  external  computer 
while  they  are  being  executed  and  programs  which  are  independent 
of  external  computation  service.  For  either  type  of  program, 
the  entire  graphics  support  is  provided  by  the  339  system,  but 
the  interpretation  of  the  relations  implied  by  the  graphics 
may  be  performed  either  in  the  339  or  in  an  external  computer. 
Multiprogramming  facility  is  provided  to  facilitate  effective 
use  of  I/O  devices  in  order  to  cope  with  the  demands  of  a  real¬ 
time  environment. 
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1.  INTRODUCTION 


The  objective  of  this  report  is  to  describe  the  con¬ 
ceptual  organization  of  the  SEL  (Systems  Engineering  Laboratory's) 
Executive  System  for  a  339  computer  display  terminal,  as  well 
as  to  provide  a  manual  for  its  use.  More  specifically,  the  hard¬ 
ware  configuration  for  which  the  System  was  designed  consists  of 
the  following  items  (plus  necessary  interfaces,  multiplexors, 
etc . )  s 

DEC  PDP-9  with  at  least  two  8192-word 
memory  banks 

DEC  KE09A  extended  arithmetic  element 
DEC  338  display  control  (less  PDP-8) 

DEC  AF01B  A/D  converter 
DEC  AA01A  D/A  converter 
AT&T  201A  data  set 

The  System  provides  both  a  multiprogramming  capability  (based 
on  I/O  slicing,  rather  than  time- slicing)  and  a  complete  set 
of  operators  for  maintaining  a  highly  structured  display  file 
and  for  interrogating  it  for  relational  properties. 

Since  an  on-line  operator  tends  to  produce  a  burst  of 
inputs  and  then  to  be  idle  for  a  relatively  long  period  of  time, 
appropriate  feedback  to  each  input  must  be  provided  rapidly  if 
the  operator  is  to  be  allowed  to  proceed  at  his  own  rate.  If 
the  terminal  were  not  multiprogrammed ,  the  processing  of  one 
input  would  have  to  be  completed  before  processing  of  the  next 
could  be  begun.  Consequently,  bursts  of  operator  activity 
could  not  be  effectively  handled  by  this  scheme.  However,  if 
a  multiprogramming  system  (where  the  users  of  the  system  are 
programs  which  respond  to  various  inputs)  were  used,  feedback 
to  each  input  could  be  produced  almost  immediately,  and  the 
remaining  (and  usually  time-consuming)  part  of  the  processing 
could  be  deferred  until  a  later  time. 
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Bandwidth  limitations  on  the  data  link  between  the 
remote  computer  and  the  central  timesharing  system  suggest  that 
programs  be  distributed  between  the  central  computer  and  the 
remote  computer  such  that  dataphone  traffic  is  minimized  (sub¬ 
ject  to  the  constraint  of  the  capacity  of  the  remote  machine) . 

In  terms  of  a  remote  display  terminal,  this  usually  means  that 
the  relations  implied  by  a  display  file,  rather  than  the  display 
file  itself,  be  transmitted.  For  this  reason,  the  remote  system 
should  provide  a  facility  for  constructing  a  display  file  based 
partly  on  relational  information,  and  for  interrogating  a  dis¬ 
play  file  for  relational  information. 

A  general  discussion  of  the  organization  of  the  System 
and  detailed  discussions  of  the  various  system  subroutines  and 
the  idle-time  task  follow.  A  complete  listing  of  the  System  is 
given  in  Appendix  A,  a  summary  of  system  subroutines  is  given 
in  Appendix  B,  a  summary  of  all  IOT  instructions  pertinent  to 
the  hardware  configuration  is  given  in  Appendix  C,  and  a  brief 
description  of  the  assembly  language  used  in  the  examples  is 
given  in  Appendix  D. 


2.  SYSTEM  ORGANIZATION 


2 . 1  Bootstrap  Arrangement 

The  System  should  be  loaded  by  the  following  procedure 

1)  Place  the  system  tape  in  the  reader. 

2)  Set  all  switches  to  0  (down) . 

3)  Depress  the  read-in  key. 

This  procedure  causes  the  first  record,  which  is  written  in 
hardware  RIM  format,  to  be  read,  and  the  computer  to  be  started 
at  the  last  location  loaded.  The  record  read  is  the  bootstrap 
loader  represented  by  the  following  assembly  code: 


$ORG 

0 

IOT 

144 

SELECT  READER  IN  BINARY  MODE 

IOT 

101 

SKIP  ON  READER  FLAG 

JMP 

*-l 

WAIT  FOR  READER  FLAG 

IOT 

112 

READ  READER  BUFFER 

DAC* 

10 

LOAD  A  WORD 

JMP 

0 

READ  NEXT  WORD 

HLT 

HLT 

$DC 

17731 

INITIAL  INDEX  VALUE 

JMP 

0 

START  BOOTSTRAP  LOADER 

The  bootstrap  loader  is  capable  of  loading  one  binary 
block  (Section  3.4.2)  starting  at  location  17732g,  but  is  not 
capable  of  detecting  the  end  of  the  block.  However,  the  block 
which  immediately  follows  the  bootstrap  loader  on  the  system 
tape  is  loaded  into  locations  17732g , . . .  ,17777g ,  0.  The  word 
loaded  into  location  0  is  a  JMP  instruction  to  the  beginning  of 
a  more  sophisticated  loader,  which  is  contained  in  the  block 
read  by  the  bootstrap  loader. 

The  loader  loaded  by  the  bootstrap  loader  is  capable 
of  loading  an  arbitrary  number  of  binary  blocks,  and  it  is  this 
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loader  which  loads  the  System.  Immediately  following  the  last 
block  of  the  System  is  a  one-word  block  which  modifies  the 
loader  and  causes  execution  of  the  System  to  begin. 

At  the  end  of  the  loading  process,  the  System  occupies 
locations  0-11777g,  and  the  bootstrap  loader  and  system  loader 
are  no  longer  usable.  (The  storage  occupied  by  the  system  loader 
is  salvaged  by  the  System  for  display  structure  use  at  a  later 
time . ) 

2 . 2  Tasks 

Each  program  written  to  run  with  the  System  is  called 
a  "task"  and  is  identified  by  its  entry  point.  The  System 
maintains  a  task  queue,  each  entry  of  which  consists  of  the 
entry  point  for  the  task,  together  with  other  information  re¬ 
quired  to  determine  the  eligibility  of  the  task  or  to  restore 
the  contents  of  certain  registers  before  the  task  is  executed. 
Whenever  execution  of  a  task  is  begun,  the  task  is  removed  from 
the  task  queue. 

A  task  is  entered  by  a  JMP  instruction  (rather  than 
a  JMS  instruction,  as  in  some  other  similar  systems)  and  is 
subject  to  the  following  restrictions: 

1)  No  user  task  may  contain  an  IOT  instruction. 

2)  No  user  task  may  store  in  core  bank  0.  (No  user 
task  should  be  loaded  into  core  bank  0.  Locations  12000o-17777o 

O  O 

are  used  by  the  System  to  store  the  display  structure.) 

3)  A  task  which  uses  an  allocatable  I/O  device 
(via  system  subroutines)  must  allocate  the  device  before  calling 
the  system  subroutine  to  use  it,  and  must  release  the  device 
before  terminating.  (The  task  may  allocate  and/or  release  the 
device  implicitly  by  insuring  that  another  task  is  scheduled  to 
perform  the  function.) 

2 . 3  States  of  the  System 

At  any  instant,  the  System  is  operating  in  one  of 


two  states  : 
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1)  System  state — A  special  system  task,  called  the 
idl£-time  task  (Section  4)  ,  is  executed.  However,  an  incoming 
message  from  the  201A  dataphone  which  is  not  directed  to  a  user 
task  will  cause  the  201-to-teleprinter  task  (Section  3.4.1)  to 
be  scheduled. 

2)  User  state — All  scheduled  user  tasks  are  exe¬ 
cuted  and  the  idle-time  task  is  not  executed.  The  201-to-tele- 
printer  task  is  scheduled  when  necessary  as  in  system  state. 

The  states  of  the  System  may  be  depicted  by  the  follow 
ing  diagram: 


201-to-teleprinter  task 


Idle-time 

task 


state  state 


2 . 4  Entering  System  State 

Whenever  one  of  the  following  events  occurs,  the  System 
is  reinitialized  (i.e.,  all  I/O  activity  is  stopped,  the  task 
queue  and  all  buffers  are  cleared,  and  all  I/O  devices  are 
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released) ,  and  system  state  is  entered: 

1)  The  System  is  reloaded. 

2)  The  currently  executing  user  task  terminates 
with  the  •'  _k  queue  empty,  and  all  output  buffers  become  empty. 

3)  An  unidentifiable  interrupt  occurs. 

4)  The  manual  interrupt  button  is  pressed.  (The 
manual  interrupt  is  used  by  the  operator  to  reinitialize  the 
System  in  case  of  emergency.) 

5)  The  task  queue  overflows. 

6)  The  program  is  started  at  location  22g  via  the 
panel  switches. 

7)  An  illegal  instruction  (operation  code  00g)  is 

executed. 

Immediately  after  system  state  is  entered,  a  comment  describing 
which  one  of  the  above  events  occurred  is  typed  on  the  teletype, 
and,  if  enough  free  display  storage  remains,  it  is  displayed 
on  the  screen.  Reinitializing  the  System  does  not  include  clear¬ 
ing  the  display  storage  area,  but  it  does  cause  the  active 
structure  to  be  detached  from  the  highest  active  level  (Section 
3.9)  . 
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3.  SYSTEM  SUBROUTINES 


Sections  3.1  through  3.11  describe  the  various  system 
subroutines  which  are  callable  from  user  tasks.  The  entry  point 
to  each  subroutine  occupies  a  fixed  position  in  a  vector  such 
that  the  actual  code  for  the  subroutine  may  be  relocated  (by 
some  future  modification  of  the  System)  without  requiring  user 
tasks  to  be  reassembled.  Since  the  System  occupies  core  bank 
0  and  user  tasks  cannot  be  loaded  into  bank  0,  system  subroutines 
must  be  called  via  an  indirect  reference,  i.e.,if  a  is  the 
symbolic  name  of  a  system  subroutine,  a  call  to  a  is  written 
in  the  following  form: 

JMS*  =a 

Most  of  the  system  subroutines  return  immediately  after 
the  JMS  instructions  which  call  them.  (Parameters  are  passed 
in  the  AC  and  MQ.)  However,  several  subroutines  have  "failure 
returns,"  i.e.,  a  return  is  made  immediately  after  the  location 
containing  the  JMS  instruction  if  the  function  which  the  subrou¬ 
tine  must  perform  cannot  be  performed.  If  the  subroutine  succeeds, 
return  is  made  to  the  next  location.  The  two  types  of  calling 
sequences  may  be  illustrated  as  follows: 

Subroutine  with  no  failure  return: 

JMS*  =a 

-  (return) 

Subroutine  with  failure  return: 

JMS*  =a 

-  (failure  return) 

-  (success  return) 

A  subroutine  which  has  a  failure  return  is  denoted  by  an  aster¬ 
isk  (*)  appended  to  its  symbolic  name  in  Sections  3.1  through 
3.11.  (Tne  asterisk  is  not  part  of  the  symbolic  name.) 
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3 . 1  Word  Queues 

The  basic  structure  which  supports  cyclic  I/O  buffer¬ 
ing  and  task  scheduling  in  the  System  is  a  word  queue .  This 
structure  consists  of  a  block  of  three  words,  called  control 
words ,  followed  by  n  data  words  and  has  the  properties  of 
both  a  first-in  first-out  (FIFO)  queue  and  a  last-in  first-out 
(LIFO)  queue. 

A  word  queue  is  represented  in  core  as  shown  by  the 
following  diagram: 


The  symbols  in  the  diagram  are  interpreted  as  follows: 

qQ  ■  Address  of  the  word  queue.  By  convention,  this 
is  the  address  of  the  first  control  word, 
q^  ■  Pointer  to  the  physically  last  data  word  in  the 
queue . 

q2  88  Pointer  to  the  last  word  put  into  the  queue 
(FIFO  sense) . 

q^  88  Pointer  to  the  last  word  taken  out  of  the  queue. 
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The  word  queue  is  empty  whenever  q2  =  q^  '  an<^ 
full  whenever  q^  =  q2  +  1  or  q^  =  qQ  +  3  and  ^2  =  ^1  *  The 
maximum  number  of  words  which  may  be  stored  in  the  queue  is  then 
n  -  1  . 

The  cyclic  nature  of  the  word  queue  requires  that  the 
terms  incrementing  and  decrementing  a  pointer  be  defined 
for  this  structure.  A  pointer  q  is  "incremented"  if  it  is 
modified  so  that  it  takes  on  the  value 

q  +  1,  if  q  t  qx 

q’  - 

qo  +  3,  if  q  =  qx 

A  pointer  q  is  "decremented"  if  it  is  modified  so  that  it 
takes  on  the  value 

q  -  1,  if  q  ¥■  qQ  +  3 

q"  = 

qx,  if  q  =  qQ  +  3 

The  following  system  subroutines  have  been  defined 
for  managing  word  queues: 

Q.C  -  The  word  queue  whose  address  is  given  in  bits 

3-17  of  the  AC  is  cleared.  (q2  and  q^  are  both 
set  equal  to  q^  . ) 

Q.I*-  The  word  given  in  the  MQ  is  added  in  LIFO  fashion 
to  the  word  queue  whose  address  is  gi,Ten  in  bits 
3-17  of  the  AC.  (The  word  to  be  queued  is  stored 
in  the  location  which  q^  references,  and  q^ 
is  decremented.)  A  failure  return  is  made  if 
the  queue  is  full  before  the  operation  is  at¬ 
tempted  . 

Q.A*-  The  word  given  in  the  MQ  is  added  in  FIFO  fashion 
to  the  word  queue  whose  address  is  given  in  bits 
3-17  of  the  AC.  (q2  is  incremented  and  the  word 
to  bo  queued  is  stored  in  *he  location  which  the 
resulting  q2  references.)  A  failure  return  is 
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made  if  the  queue  is  full  before  the  operation 
is  attempted. 

Q.F*-  A  word  is  fetched  from  the  word  queue  whose 

address  is  given  in  bits  3-17  of  the  AC  and  is 
returned  in  the  AC.  (q^  is  incremented,  and 
the  word  stored  in  the  location  which  the  result¬ 
ing  q^  references  is  fetched.)  A  failure  re¬ 
turn  is  made  if  the  word  queue  is  empty  before 
the  operation  is  attempted. 

A  word  queue  may  be  constructed  by  defining  only  the 
pointers  qQ  and  q^  ,  since,  if  the  queue  is  cleared  (via  Q.C) 
before  it  is  used,  the  pointers  q2  and  q3  will  be  automati¬ 
cally  established.  For  example,  the  word  queue  whose  address 
is  Q  may  be  constructed  by  the  following  two  statements,  where 
e  is  an  expression  whose  value  is  n  +  2: 

Q  $DC  *+e 
$DS  e 

As  an  example  of  the  manipulation  (but  not  application) 
of  word  queues,  consider  a  task,  whose  entry  point  is  TASK,  which 
stores  sequential  integers  on  a  first-in,  first-out  basis  in 
the  word  queue  FIFO  until  the  queue  is  full,  and  then  copies 
words  from  FIFO  into  another  word  queue  LIFO  on  a  last-in,  first- 
out  basis.  Both  FIFO  and  LIFO  will  be  assumed  to  have  a  capacity 
of  X  words,  where  X  is  a  predefined  symbol.  An  algorithm  for 
this  task  is  given  below.  (T.F  is  described  in  Section  3.2.) 


TASK 

LAC 

-FIFO 

GET  ADDRESS  OF  FIFO  QUEUE 

JMS* 

-Q.C 

CLEAR  FIFO  QUEUE 

LAC 

=LIFO 

GET  ADDRESS  OF  LIFO  QUEUE 

JMS* 

=Q.  C 

CLEAR  LIFO  QUEUE 

DZM 

COUNT 

START  COUNTING  AT  ZERO 

LOOP1 

LAC 

COUNT 

GET  VALUE  OF  INTEGER 

LMQ 

SET  UP  PARAMETER 

LAC 

=FIFO 

GET  ADDRESS  OF  FIFO  QUEUE 
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JMS* 

=Q .  A 

ADD  INTEGER  TO  QUEUE 

JMP 

LOOP  2 

COPY  INTO  OTHER  QUEUE 

ISZ 

COUNT 

INCREMENT  COUNTER 

JMP 

L00P1 

QUEUE  NEXT  INTEGER 

LOOP  2 

LAC 

=FIFO 

GET  ADDRESS  OF  FIFO  QUEUE 

JMS* 

=Q.F 

FETCH  WORD  FROM  QUEUE 

JMS* 

li 

►■3 

TERMINATE  TASK 

LMQ 

SET  UP  PARAMETER 

LAC 

=LIFO 

GET  ADDRESS  OF  LIFO  QUEUE 

JMS* 

=Q.I 

INSERT  WORD  ON  QUEUE 

$DC 

0 

PROGRAM  SHOULD  NEVER  GET  HERE 

JMP 

LOOP  2 

COPY  NEXT  WORD 

FIFO 

$DC 

*+X+3 

$DS 

X+3 

LIFO 

$DC 

*+X+3 

$DS 

X+3 

3 . 2  Task 

Scheduling  and 

I/O  Device  Allocation 

The  following  system  subroutines  have  been  defined  for 
controlling  task  scheduling: 

T.S  -  The  task  whose  address  appears  in  bits  3-17  in 
the  AC  is  scheduled  for  execution. 

T.P  -  The  task  whose  entry  point  is  the  location 

immediately  preceding  the  call  to  T.P  is  sched¬ 
uled  for  execution,  and  execution  of  the  task 
which  called  T.P  is  terminated. 

T.F  -  Execution  of  the  task  which  called  T.F  is 
terminated . 

As  an  example  of  the  use  of  these  system  subroutines, 
consider  a  task,  whose  entry  point  is  SCHED,  which  schedules  the 
two  tasks  TASK1  and  TASK2  after  a  nonzero  value  is  stored  (by 
some  other  task)  in  location  SWITCH.  One  algorithm  for  this 
task  is  the  following: 
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SCHED 

JMS 

CHECK 

SKIP  IF  SWITCH  IS  SET 

JMS* 

a. 

(H 

II 

WAIT  FOR  SWITCH  TO  BE  SET 

LAC 

=TASK1 

GET  ADDRESS  OF  FIRST  TASK 

JMS* 

=T .  S 

SCHEDULE  FIRST  TASK 

LAC 

=TASK2 

GET  ADDRESS  OF  SECOND  TASK 

JMS* 

=T.S 

SCHEDULE  SECOND  TASK 

JMS* 

li 

►-3 

TERMINATE  TASK 

CHECK 

$DC 

0 

LAC 

SWITCH 

GET  SWITCH  VALUE 

SZA 

SKIP  IF  SWITCH  NOT  SET 

ISZ 

CHECK 

INDICATE  SUCCESS 

JMP* 

CHECK 

RETURN 

The  call  to  T.P  is  given  whenever  the  subroutine  CHECK  produces 
a  failure  return  (in  the  same  sense  that  some  system  subroutines 
produce  failure  returns)  to  reschedule  the  call  to  CHECK.  Be¬ 
cause  tasks  are  scheduled  on  a  first-in  first-out  basis,  the 
rescheduled  call  to  CHECK  is  not  executed  until  each  other  eli¬ 
gible  task  in  the  task  queue  has  been  executed. 

A  task  allocates  and  releases  I/O  devices  by  calling 
appropriate  system  subroutines,  supplying  them  with  "allocation 
masks."  An  allocation  mask  is  a  representation  of  the  set  of 
I/O  devices  which  are  involved  in  an  allocation  operation.  Each 
bit  position  in  the  mask  is  associated  with  one  I/O  device.  If 
a  bit  position  contains  a  1,  the  corresponding  I/O  device  is 
involved  in  the  operation;  otherwise,  it  is  not.  The  bit  posi¬ 
tion  assignments  are  given  by  the  following  table: 


Bit  Position 

I/O  Device 

9 

201  Dataphone  Input 

10 

201  Dataphone  Output 

11 

Reader 

12 

Punch 

13 

Keyboard 

14 

Teleprinter 

15 

D/A  Converter 

16 

Push  Buttons 

17 

Display 
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The  following  system  subroutines  have  been  defined 
for  controlling  I/O  device  allocation: 

T. A  -  The  I/O  devices  specified  by  the  allocation  mask 
in  bits  9-17  of  the  AC  are  allocated.  The 
calling  task  is  terminated,  and  the  return  from 
this  subroutine  is  scheduled  as  a  task  to  be 
executed  after  the  specified  devices  become 
available.  Bits  0-4  of  the  AC  are  ignored. 

T.R  -  The  I/O  devices  specified  by  the  allocation  mask 
in  bits  9-17  of  the  AC  are  released.  Bits  0-4 
of  the  AC  are  ignored. 

In  order  to  guarantee  that  all  scheduled  user  tasks 
become  eligible  for  execution  in  a  finite  amount  of  time,  I/O 
device  allocation  must  be  performed  according  to  the  following 
rule: 


Whenever  an  I/O  device  is  allocated,  all  other  I/O 
devices  which  are  to  be  allocated  before  it  is 
released  must  also  be  allocated. 


As  an  example  of  I/O  device  allocation,  consider  two 
tasks,  which  are  scheduled  one  immediately  after  the  other, 
whose  I/O  device  allocation  activity  is  summarized  by  the  fol¬ 
lowing  tables  (where  t.  ,  .  >  t.  .  ): 

lfK'J.  lfK 

Task  #1: 


Time 


t 

t 

t 

t 

t 


11 

12 

13 

14 

15 


Devices  Allocated 
A 
B 

C 


Devices  Released 


A 


B ,  C 


Task  #2: 


Time 


Devices  Allocated  Devices  Released 
C 
B 


B,C 
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Assume  the  rule  given  above  is  ignored,  and  the  I/O  devices 
are  allocated  precisely  as  shown  in  the  above  tables.  Then, 

if  t£2  >  >  fc21  fc14  °°  anc*  22 *  °°  because  Tas^  #1  will 

not  release  device  B  until  it  can  allocate  device  C,  and  Task 
#2  will  not  release  device  C  until  it  can  allocate  device  B. 

By  applying  the  allocation  rule  to  the  above  tables, 
the  following  new  tables  are  obtained: 


Task 

#1: 

Time 

Devices  Allocated 

Devices  Released 

"'ll 

A ,  B  ,  C 

- 

t'  12 

- 

B,C 

t'  13 

B,C 

- 

'  14 

— 

A  ,C 

" '  15 

C 

- 

t'l6 

B,C 

Task 

#2: 

Time 

Devices  Allocated 

Devices  Released 

'  21 

B,C 

- 

t'  22 

- 

B 

t'23 

B 

- 

'  24 

— 

B,C 

With 

this 

modification,  all  tasks  will  become  eligible  for 

execution 

.  (A  new 

task  is  scheduled  and 

the  calling  task  is 

terminated  each  time  I/O  devices  are  allocated.) 

A  subroutine  which  may  be  called  by  several  concurrent 
ly  executing  tasks  and  which  allows  tasks  other  than  the  one 
which  called  it  to  execute  before  it  returns  is  in  danger  of 
being  reentered  from  one  task  while  it  is  servicing  another. 

This  event  results  in  the  loss  of  the  return  address  for  the 
subroutine  and  perhaps  some  of  the  data  upon  which  the  sub¬ 
routine  operates.  To  facilitate  the  writing  of  reentrable  sub¬ 
routines  (i.e.,  subroutines  which  are  protected  against  reentry) 
the  following  system  subroutines  have  been  defined: 
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T.L  -  Lock  subroutine  against  reentry.  If  the  loca¬ 
tion  which  immediately  follows  the  call  to  T.L 
does  not  contain  zero,  the  call  to  the  subroutine 
whose  entry  point  immediately  precedes  the  call 
to  T.L  is  rescheduled.  Otherwise,  the  content 
of  the  location  which  immediately  precedes  the 
call  to  T.L  is  copied  into  the  location  which 
immediately  follows  the  call  to  T.L. 

T.U  -  Unlock  reentrable  subroutine.  The  location 

whose  address  is  the  address  contained  in  the 
word  which  immediately  follows  the  call  to  T.U 
plus  2  is  zeroed,  and  a  JMP  to  the  address  which 
was  stored  in  that  location  before  it  was  zeroed 
is  executed. 

Because  both  T.L  and  T.U  must  preserve  the  contents 
of  the  AC  and  MQ,  these  subroutines  have  the  following  special 
calling  sequences: 

Calling  sequence  for  T.L: 

-  $DC  0  (reentrable  subroutine  entry 

point) 

JMS*  =T.L 

$DC  0  (save  location  for  T.L) 

-  (return) 

Calling  sequence  for  T.U: 

JMS*  =T.U 

$DC  -  (subroutine  entry  point) 

As  an  example  of  the  use  of  T.L  and  T.U,  consider  the 
reentrable  subroutine  WAIT  which  returns  to  its  calling  task 
after  all  tasks  on  the  task  queue  have  had  a  chance  to  execute. 

An  algorithm  for  this  subroutine  is  the  following: 


WAIT 


$DC  0 
JMS*  =T.L 
$DC  0 


SET  REENTRY  LOCK 
SAVE  LOC  FOR  T.L 
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SKP 

SCHEDULE  NEXT  LOC 

AS  TASK 

SKP 

RETURN 

JMS* 

=T.P 

SCHEDULE  PREVIOUS 

LOC  AS  TASK 

JMS* 

ii 

C 

UNLOCK  SUBROUTINE 

£.  RETURN 

$DC 

WAIT 

SUBROUTINE  ENTRY  ! 

POINT 

3 . 3  Format  Conversions 

Characters  are  represented  internally  in  the  System 
by  6-bit  codes  to  facilitate  storage  of  three  characters  per 
word.  Since  ASCII  character  codes  must  be  available  for  tele¬ 
type,  paper  tape,  and  dataphone  I/O,  conversions  between  ASCII 
and  6-bit  codes  must  be  frequently  performed.  In  addition, 
the  11-bit  sign-magnitude  coordinates  required  by  the  display 
control's  vector  mode  must  often  be  converted  to  and  from  18- 
bit  two's  complement  representation.  To  satisfy  these  require¬ 
ments,  the  following  system  subroutines  have  been  defined: 

C.B6  -  The  binary  number  given  in  the  AC  is  converted 

to  its  corresponding  6-bit  octal  representation, 
which  is  returned  in  the  AC  and  MQ  (high-order 
digits  in  AC,  low-order  digits  in  MQ) . 

C.6A  -  The  6-bit  code  given  in  bits  12-17  of  the  AC 
is  converted  to  the  corresponding  ASCII  code, 
which  is  returned  in  bits  10-17  of  the  AC,  with 
bits  0-9  cleared  and  the  parity  bit  of  the 
ASCII  code  (i.e.,  bit  10  of  the  AC)  set,  re¬ 
gardless  of  the  parity.  Bits  0-11  of  the  AC 
are  ignored  on  entry. 

C.A6  -  The  ASCII  code  given  in  bits  10-17  of  the  AC 
is  converted  to  the  corresponding  6-bit  code, 
which  is  returned  in  bits  12-17  of  the  AC, 
with  bits  0-11  cleared.  Bits  0-9  of  the  AC 
and  the  parity  bit  of  the  ASCII  code  (i.e., 
bit  10  of  the  AC)  are  ignored  on  entry. 


j 


t 
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C.CB  -  The  vector  mode  sign-magnitude  display  coordi¬ 
nate  given  in  bits  7-17  of  the  AC  is  converted 
to  the  corresponding  two's  complement  represen¬ 
tation,  which  is  returned  in  the  AC.  Bits  0-6 
of  the  AC  are  ignored  on  entry. 

C.BC  -  The  two's  complement  number  in  the  AC  is  con¬ 
verted  modulo  2^  to  the  corresponding  vector 
mode  sign-magnitude  display  coordinate  repre¬ 
sentation,  which  is  returned  in  bits  7-17  of 
the  AC  with  bits  0-6  cleared. 

The  6-bit  codes  used  by  the  System  may  each  be  repre¬ 
sented  by  two  octal  digits  as  shown  by  the  following  table: 


Second  Octal  Digit 


■p 

■H 

•H 

Q 


nJ 

■P 

o 

O 

■p 

w 

P 

•H 

Cm 


cr  =  carriage  return 
If  =  line  feed 
sp  h  space 


All  ASCII  characters  which  do  not  appear  in  the  table 
are  mapped  into  77g  .  The  only  printing  characters  which  are 
treated  in  this  manner  are  and  "  ". 

3 . 4  Buffered  I/O 

Input  data  from  the  dataphone,  the  paper  tape  reader, 
and  the  keyboard,  as  well  as  output  data  to  the  dataphone, 
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paper  tape  punch,  and  teleprinter,  are  buffered  by  the  System. 
In  the  event  that  an  input  buffer  is  empty  or  an  output  buffer 
is  full  and  the  system  subroutine  which  transfers  data  between 
the  buffer  and  a  task  is  called,  the  return  from  the  subroutine 
is  scheduled  as  a  task  to  be  executed  only  after  the  state  of 
the  buffer  changes,  and  execution  of  the  calling  task  is  termi¬ 
nated. 


3.4.1  Dataphone  I/O 

The  following  system  subroutines  have  been  defined 
for  managing  the  201  dataphone  buffers: 

B.FI*  -  An  image  is  fetched  from  the  201  dataphone 
input  buffer  and  is  returned  in  bits  10-17 
of  the  AC.  Bits  0-9  of  the  AC  are  cleared, 
unless  the  image  is  an  end-of-record  charac¬ 
ter  in  which  case  bits  0-4  are  set  and  bits 
5-9  are  cleared.  A  failure  return  is  made 
if  the  data  set  is  not  connected. 

B.FO*  -  The  image  in  bits  10-17  of  the  AC  is  sent  to 
the  201  dataphone  output  buffer.  If  bit  0 
of  the  AC  is  set,  the  image  is  interpreted 
as  an  end-of-record  character,  and  transmis¬ 
sion  is  begun.  A  failure  return  is  made 
before  the  image  is  buffered  if  the  data  set 
is  not  connected. 

Since  actual  dataphone  transmission  is  record-oriented 
(although  transfer  of  data  between  the  dataphone  buffers  and 
tasks  is  not) ,  the  return  from  B.FI  to  the  calling  task  is  de¬ 
layed  until  the  dataphone  input  buffer  contains  a  complete  re¬ 
cord,  and  the  return  from  B.FO  is  delayed  until  the  last  record 
transmitted  has  been  affirmatively  acknowledged  by  the  other 
party.  In  simpler  terms,  the  dataphone  input  buffer  is  con¬ 
sidered  to  be  empty  whenever  it  does  not  contain  a  complete 
record,  and  the  dataphone  output  buffer  is  considered  to  be 
full  whenever  the  last  transmitted  record  has  not  been  affirms 
tively  acknowledged. 
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Dataphone  records  are  formatted  according  to  the 
conventions  adof.cd  by  The  University  of  Michigan  Computing 
Center  at  the  time  of  this  report.  Each  record  is  formatted 
(if  transmitted)  or  interpreted  (if  received)  by  the  System 
and  consists  of  the  following  sections : 

1.  Several  synchronous  idle  (SYN)  characters  ( 0 2 6 g ) . 
(At  least  two  are  required  when  receiving;  eight  are  trans¬ 
mitted.  ) 

2.  A  data  link  escape  (DLE)  character  (220g) . 

3.  Data.  The  8-bit  images  in  this  section  are  arbi¬ 
trary  binary,  with  the  exception  that  a  DLE  character  (with 
either  parity)  is  preceded  by  a  DLE.  The  first  DLE  is  ignored 
when  the  record  is  received,  and  serves  only  to  cause  the  second 
one  to  be  interpreted  as  data.  (A  pair  of  characters  consisting 
of  a  DLE  followed  by  a  SYN  is  ignored  when  receiving,  although 
this  sequence  is  never  transmitted.) 

4.  A  DLE  character. 

5.  An  end-of-record  character. 

6.  The  high-order  8  bits  of  the  block  check  (des¬ 
cribed  below) . 

7.  The  low-order  8  bits  of  the  block  check  (des¬ 
cribed  below) . 

8.  A  pad  character  (377g). 

In  order  to  facilitate  detection  of  burst  errors,  a 
16-bit  cyclic  block  check  is  included  in  each  dataphone  record. 
For  purposes  of  computing  this  block  check,  the  data  sequence 
(consisting  of  the  concatenation  of  the  second  through  the 
last  data  images,  plus  the  end-of-record  character)  is  regarded 
as  a  cyclic  polynomial  code.  The  block  check  is  obtained  by 
simultaneously  multiplying  the  polynomial  representation  of 
the  data  sequence  by  and  dividing  it  by  X1^  +  X1^  +  X2  +  1 

(where  the  coefficients  of  the  polynomials  are  taken  from  the 
field  of  two  elements).  The  following  diagram  illustrates  this 
operation : 
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end-of-record 

character 


last  data 
image 


third  data 
image 


second 
data  image 


Data  Sequence 

(low-order  bits  of  each  image  used  first) 


Whenever  a  dataphone  record  is  received  by  either 
party,  the  block  check  is  computed  and  compared  with  the  re¬ 
ceived  block  check.  If  the  two  block  checks  match,  the  data¬ 
phone  record  is  assumed  to  have  been  received  correctly,  and 
an  affirmative  acknowledgment  is  returned  when  the  receiving 
party  is  ready  for  the  next  record.  However,  if  the  two  block 
checks  do  not  match,  a  negative  acknowledgment,  which  is  a 
request  for  the  record  to  be  retransmitted,  is  returned,  and 
the  incorrectly  received  record  is  discarded.  The  System 
assumes  complete  responsibility  for  managing  acknowledgments 
and  retransmissions  for  the  339. 

Whenever  a  dataphone  record  is  received  with  a  cor¬ 
rect  block  check,  the  first  data  image  is  examined.  If  it  is 
zero,  user  tasks  are  given  access  to  it  via  the  system  subrou¬ 
tine  B.FI.  Otherwise,  a  special  201-to-teleprinter  task  is 
scheduled  to  type  the  record  (interpreting  it  as  a  sequence  of 
ASCII  codes)  as  soon  as  the  teleprinter  becomes  available.  In 
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this  way,  unsolicited  messages  from  the  remote  party  are  typed 
and  routed  clear  of  tasks  which  are  using  the  dataphone . 

Whenever  the  end-of-record  character  for  either  a 
transmitted  or  received  record  is  an  enquiry  (005g)  or  an  end- 
of-transmission  (204g) ,  both  dataphone  buffers  (input  and  out¬ 
put)  are  cleared,  and  the  last  record  transmitted  is  considered 
to  have  been  affirmatively  acknowledged.  Note  that  transmitted 
records  of  this  form  will  be  processed  normally  by  the  System 
(except  that  immediate  acknowledgment  will  be  assumed) ,  but 
received  records  of  this  form  will  be  discarded  once  the  end- 
of-record  character  is  detected. 

As  an  example  of  the  use  of  B.FI  and  B.FO,  consider 
the  task  MIRROR  which  receives  64  dataphone  images  in  an  arbi¬ 
trary  number  of  records  (not  including  the  zero  images  required 
to  route  records  to  tasks) ,  transmits  all  of  them  in  one  data¬ 
phone  output  record,  and  ignores  the  remainder  of  the  last  data¬ 
phone  input  record  which  it  examined.  An  algorithm  for  this 


task  is 

the  following  (L 

.T  is  described  in  Section  3.11): 

MI RROR 

LAW 

600 

GET  ALLOCATION  MASK 

JMS  * 

=T .  A 

ALLOCATE  201  INPUT  &  OUTPUT 

LAW 

17700 

LOAD  AC  WITH  -64 

DAC 

COUNT 

INITIALIZE  IMAGE  COUNT 

START 

JMS* 

=B.FI 

GET  REDUNDANT  IMAGE 

JMP 

HELP 

DATA  SET  NOT  CONNECTED 

READ 

JMS* 

=B .  FI 

GET  INPUT  IMAGE 

JMP 

HELP 

DATA  SET  NOT  CONNECTED 

SPA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

START 

READ  NEXT  RECORD 

JMS* 

=  B.FO 

PUT  IN  OUTPUT  BUFFER 

JMP 

HELP 

DATA  SET  NOT  CONNECTED 

ISZ 

COUNT 

SKIP  IF  RECORD  LONG  ENOUGH 

JMP 

READ 

READ  NEXT  IMAGE 

JMS* 

=  B .  FI 

GET  INPUT  IMAGE 

JMP 

HELP 

DATA  SET  NOT  CONNECTED 
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SMA 

SKIP  IF  END  OF  RECORD 

JMP 

*  -  3 

READ  ANOTHER  IMAGE 

JMS* 

O 

Eu 

• 

CQ 

II 

TERMINATE  OUTPUT  RECORD 

JMP 

HELP 

DATA  SET  NOT  CONNECTED 

LAW 

600 

GET  ALLOCATION  MASK 

JMS* 

=T .  R 

RELEASE  201  INPUT  &  OUTPUT 

JMS* 

=T.F 

TERMINATE  TASK 

HELP 

LAW 

600 

GET  ALLOCATION  MASK 

JMS* 

=T.R 

RELEASE  201  INPUT  &  OUTPUT 

LAW 

10 

GET  ALLOCATION  MASK 

JMS* 

=T  .  A 

ALLOCATE  TELEPRINTER 

LAC 

=  TEXT 

GET  ADDRESS  OF  TEXT  LIST 

JMS* 

=L .  T 

TYPE  TEXT  LIST 

LAW 

10 

GET  ALLOCATION  MASK 

JMS* 

=T.R 

RELEASE  TELEPRINTER 

JMS* 

II 

TERMINATE  TASK 

TEXT 

$DC 

20 

$TEXT  '  ATA  SET  NOT  CONNECTED.  'MIRROR'  TERMINATED. 
$DC  747577 

3.4.2  Paper  Tape  I/O 

The  following  system  subroutines  have  been  defined 
for  managing  the  paper  tape  reader  and  punch  buffers: 


II 


B.R*  -  An  image  is  fetched  from  the  reader  buffer  and 
returned  in  bits  10-17  of  the  AC.  Bits  0-9  of 
the  AC  are  cleared.  Only  one  end-of-record 
character  (zero)  may  be  returned  by  two  succes¬ 
sive  calls  to  B.R.  A  failure  return  is  made 
if  the  reader  is  out  of  tape  and  the  reader 
buffer  is  empty. 

-  The  image  in  bits  10-17  in  the  AC  is  sent  to 
the  punch  buffer.  A  failure  return  is  made 
if  the  punch  is  out  of  tape  and  the  punch 
buffer  is  full. 


B.P* 
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Paper  tape  formats  are  arbitrary,  subject  to  the  re¬ 
striction  that  a  zero  image  (i.e.,  a  line  of  blank  tape)  which 
immediately  follows  a  nonzero  image  is  interpreted  as  an  end-of- 
record  character  and  all  other  zero  images  are  ignored.  However, 
the  format  which  is  read  and  punched  by  the  data  transfers  of 
the  idle-time  task  (Section  4.1)  is  recommended  for  compatibil¬ 
ity  reasons.  In  this  format,  the  two  high-order  bits  of  each 
8-bit  tape  image  are  interpreted  as  control  information,  and 
the  remaining  6  bits  are  interpreted  as  data.  The  two  control 
bits  are  interpreted  as  follows: 

00  mode  change 

01  binary  origin 

10  binary  data 

11  alphanumeric  data 

There  are  64  possible  mode  changes  (designated  by 
the  low-order  6  bits  of  a  mode  change  tape  image) ,  only  one  of 
which  has  been  defined  at  the  time  of  this  writing,  i.e.,  the 
end-of-record  character  000g.  (An  example  of  possible  future 
mode  change  assignments  is  a  set  of  relocation  modes  for  relo¬ 
catable  binary  records.) 

A  binary  block  consists  of  three  binary  origi..  images 
followed  by  a  multiple  of  three  binary  data  images.  The  block 
represents  a  set  of  18-bit  words  to  be  loaded  starting  at  the 
address  indicated  by  the  data  bits  of  the  three  origin  images. 

For  example,  the  binary  block  which  indicates  that  location 
23572g  should  contain  621365g  and  that  location  23573g  should 
contain  176234g  is  the  following: 

102 

135  origin  23572 

172 
262 

213  data  621365 

265 

217 

262  data  176234 

234 
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A  binary  record  is  a  concatenation  of  binary  blocks,  followed 
by  the  end-of-record  character  (OOOg). 

An  alphanumeric  record  consists  of  an  arbitrary 
number  of  alphanumeric  tape  images  (where  the  6  data  bits  in 
each  image  represent  a  6-bit  character  code) ,  followed  by  an 
end-of-record  character  (OOOg) . 

As  an  example  of  the  use  of  the  paper  tape  I/O  system 
subroutines,  consider  a  task  COPY  which  copies  one  record  of 
paper  tape: 


COPY 

LAW 

140 

GET  ALLOCATION  MASK 

JMS* 

< 

ll 

ALLOCATE  READER  &  PUNCH 

JMS* 

=B.R 

GET  IMAGE  FROM  READER 

JMP 

RERR 

READER  OUT  OF  TAPE 

SNA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

*+4 

END  OF  RECORD 

JMS* 

=B .  P 

PUNCH  IMAGE 

JMP 

PERR 

PUNCH  OUT  OF  TAPE 

JMP 

COPY+2 

READ  NEXT  IMAGE 

JMS* 

=B.P 

PUNCH  END  OF  RECORD 

JMP 

PERR 

PUNCH  OUT  OF  TAPE 

LAW 

140 

GET  ALLOCATION  MASK 

JMS* 

=T.R 

RELEASE  READER  &  PUNCH 

JMS* 

=T.F 

TERMINATE  TASK 

RERR 

LAC 

=RERRT 

GET  ADDRESS  OF  TEXT  LIST 

SKP 

TYPE  DIAGNOSTIC 

PERR 

LAC 

=PERRT 

GET  ADDRESS  OF  TEXT  LIST 

DAC 

TEXT 

SAVE  ADDRESS  OF  TEXT  LIST 

LAW 

140 

GET  ALLOCATION  MASK 

JMS* 

=T.R 

RELEASE  READER  &  PUNCH 

LAW 

10 

GET  ALLOCATION  MASK 

JMS* 

=T.A 

ALLOCATE  TELEPRINTER 

LAC 

TEXT 

GET  ADDRESS  OF  TEXT  LIST 

JMS* 

=L.T 

TYPE  DIAGNOSTIC 

LAC 

=  END 

GET  ADDRESS  OF  TEXT  LIST 

] 
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JMS* 

E-* 

il 

TYPE  TEXT  LIST 

LAW 

10 

GET  ALLOCATION  MASK 

JMS* 

ll 

*-3 

JO 

RELEASE  TELEPRINTER 

JMS* 

II 

• 

►0 

TERMINATE  TASK 

RERRT 

$DC 

2 

$TEXT 

" READER" 

PERRT 

$DC 

2 

$TEXT 

"PUNCH" 

END 

$DC 

15 

$TEXT 

"OUT  OF 

TAPE" 

$DC 

747577 

$TEXT 

"COPY  TASK  TERMINATED" 

$DC 

747577 

3.4.3  Teletype  I/O 

The  following  system  subroutines  have  been  defined 
for  managing  the  keyboard  and  teleprinter  buffers: 

B.K  -  A  6-bit  character  is  fetched  from  the  keyboard 
buffer  and  returned  in  bits  12-17  of  the  AC. 
Bits  0-11  of  the  AC  are  cleared. 

B.T  -  The  three  six-bit  characters  in  bits  0-5,  6-11, 
and  12-17  of  the  AC  are  sent  to  the  teleprinter 
buffer  to  be  typed  in  respective  order.  (The 
null  character  77g  will  not  be  typed,  even  as 
a  non-printing  character.) 

As  an  example  of  the  use  of  these  subroutines,  con¬ 
sider  the  task  ENCODE  which  accepts  characters  from  the  key¬ 
board  and  types  the  octal  representation  of  the  corresponding 
6-bit  codes.  When  a  null  character  is  typed,  the  task  is 
terminated.  An  algorithm  for  this  task  is  the  following: 


ENCODE 

LAW 

30 

GET  ALLOCATION  MASK 

JMS* 

=T .  A 

ALLOCATE  KEYBOARD  &  TELEPRINTER 

JMS* 

=  B.K 

GET  CHARACTER  FROM  KEYBOARD 

SAD 

=  77 

SKIP  IF  NOT  NULL  CHARACTER 

JMP 

END 

TERMINATE  TASK 

-26- 


END 


3.5 


JMS  *  =C.B6 

LACQ 

XOR  =770000 

JMS*  =B . T 

LAW  17475 

JMS*  =B .  T 

JMP  ENCODE+2 

LAW  30 

JMS*  =T.R 

JMS*  =T.F 

Nonbuffered  I/O 


CONVERT  TO  6-BIT  OCTAL  CODE 

GET  LOW-ORDER  DIGITS 

REMOVE  HIGH-ORDER  ZERO 

TYPE  ENCODED  CHARACTER 

GET  CARRIAGE  RETURN,  LINE  FEED  CODE 

TYPE  CARRIAGE  RETURN,  LINE  FEED 

PROCESS  NEXT  CHARACTER 

GET  ALLOCATION  MASK 

RELEASE  KEYBOARD  &  TELEPRINTER 

TERMINATE  TASK 


Three  devices  which  might  appear  to  require  buffering 
are  not  buffered:  the  clock,  the  A/D  converter,  and  the  D/A 
converter.  The  clock,  which  is  normally  used  in  an  interactive 
system  to  check  for  the  occurrence  of  certain  events  within 
specified  time  intervals,  is  often  programmed  in  a  multiprogram¬ 
ming  system  such  that  any  task  may  use  it  at  any  time.  This 
is  accomplished  through  the  use  of  a  buffer  into  which  entries 
(each  consisting  of  a  return  pointer  and  a  time  interval)  may 
be  inserted  at  arbitrary  points.  Since  the  buffer  required  is 
considerably  more  complicated  than  those  used  by  other  devices, 
the  cost  of  programming  the  clock  in  this  manner  was  found  to 
be  excessive. 

Since  A/D  converter  data  should  be  interpreted  in 
real  time,  these  data  are  not  buffered.  Instead,  whenever  a 
task  calls  the  system  subroutine  to  obtain  data  from  the  A/D 
converter,  the  device  is  selected,  the  return  from  the  subrou¬ 
tine  is  scheduled  as  a  task  to  be  executed  after  the  conversion 
is  complete,  and  execution  of  the  calling  task  is  terminated. 

The  D/A  converter  requires  only  two  microseconds  to 
produce  an  output  after  it  is  selected,  whereas  the  minimum 
time  between  selections  of  a  particular  D/A  channel  is  four 
microseconds.  Consequently,  the  System  does  not  buffer  D/A 
converter  data. 


-I 
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The  following  system  subroutines  have  been  defined 
for  nonbuffered  I/O: 

N.C  -  Execution  of  the  calling  task  is  terminated  and 
the  return  from  N.C  is  scheduled  as  a  task  to 
be  executed  at  least  the  number  of  sixtieths 
of  a  second  later  which  is  the  two's  complement 
of  the  number  given  in  the  AC. 

N.A  -  The  channel  of  the  A/D  converter  specified  in 
bits  12-17  of  the  AC  is  selected,  and  the  con¬ 
verted  value,  when  obtained,  is  returned  in 
bits  0-11  of  the  AC.  Bits  12-17  of  the  AC  are 
cleared.  The  returned  value,  if  interpreted  as 
an  ordinary  two's  complement  number,  is  -2^Il+V/5) , 
where  V  is  the  applied  input  voltage  (which 
ranges  from  0  to  -10  volts) . 

N.Dl-  D/A  converter  channel  #1  is  selected.  The  out- 

-17 

put  of  the  channel  is  set  to  -5(1+2  A)  volts, 
where  A  is  the  content  of  the  AC. 

N.D2-  D/A  converter  channel  #2  is  selected.  The  out¬ 
put  of  the  channel  is  set  to  -5(1+2  ^7A)  volts, 
where  A  is  the  content  of  the  AC. 

N.D3-  D/A  converter  channel  #3  is  selected.  The  out¬ 
put  of  the  channel  is  set  to  -5(1+2  17A)  volts, 
where  A  is  the  content  of  the  AC. 


As  an  example  of  a  use  of  N.C,  consider  the  task 
PROMPT  which  types  "PLEASE  TYPE  NOW"  onre  about  every  eight 
seconds  until  the  operator  types  something  on  the  keyboard, 
and  types  "THANK  YOU"  when  the  operator  finishes  typing  a  line. 
An  algorithm  for  this  task  is  the  following: 


PROMPT 

LAW 

30 

GET  ALLOCATION  MASK 

JMS* 

< 

E-i 

II 

ALLOCATE  KEYBOARD  &  TELEPRINTER 

DZM 

DONE 

INDICATE  NO  KEYBOARD  RESPONSE 

LAC 

= POLITE 

GET  ADDRESS  OF  KEYBOARD  CHECKER 
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POLITE 


TXTl 


TXT2 


JMS* 

=T.S 

SCHEDULE  KEYBOARD  CHECKER 

LAC 

=TXT1 

GET  ADDRESS  OF  TEXT  LIST 

JMS* 

=L.T 

TYPE  "PLEASE  TYPE  NOW" 

LAW 

-1000 

GET  TIME  PARAMETER 

JMS* 

=N.C 

WAIT  ABOUT  8  SECONDS 

LAC 

DONE 

GET  KEYBOARD  RESPONSE  SWITCH 

SNA 

SKIP  IF  RESPONSE  OBTAINED 

JMP 

PROMPT+5 

PROMPT  OPERATOR  AGAIN 

JMS* 

=T.F 

TERMINATE  EXECUTION 

JMS* 

=  B.K 

GET  KEYBOARD  CHARACTER 

XOR 

=777700 

PRECEDE  WITH  NULL  CHARACTERS 

DAC 

DONE 

SET  KEYBOARD  RESPONSE  SWITCH 

SAD 

=777774 

SKIP  IF  NOT  CARRIAGE  RETURN 

JMP 

*+3 

END  OF  INPUT  LINE 

JMS* 

=B.T 

ECHO  CHARACTER  ON  TELEPRINTER 

JMP 

POLITE 

GET  ANOTHER  CHARACTER 

LAC 

=TXT2 

GET  ADDRESS  OF  TEXT  LIST 

JMS* 

ii 

f 

•-3 

TYPE  "THANK  YOU" 

LAW 

30 

GET  ALLOCATION  MASK 

JMS* 

=T.R 

RELEASE  KEYBOARD  AND  TELEPRINTER 

JMS* 

ll 

t-3 

TERMINATE  EXECUTION 

$DC 

6 

$TEXT 

"PLEASE 

TYPE  NOW" 

$DC 

747577 

$L)C 

5 

$DC 

747577 

$TEXT 

"THANK  YOU" 

$DC 

747577 

As  an  example  of  the  use  of  N.A,  consider  the  task 
COMPAR  which  samples  channels  0  and  1  of  the  A/D  converter  until 
the  inputs  on  the  two  channels  are  close  enough  to  each  other 
that  the  same  value  is  read  from  each  channel.  When  this  condi¬ 
tion  is  satisfied,  the  comment  "ANALOG  INPUTS  MATCH"  is  typed 
on  the  teletype.  An  algorithm  for  this  task  is  the  following: 
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COMPAR  CLA 

JMS*  =N . A 

DAC  VALUE 

LAW  1 

JMS*  =N . A 
CMA 

TAD  VALUE 

CMA 

SZA 

JMP  COMPAR 
LAW  10 

JMS*  =T . A 

LAC  FOUND 

JMS*  =L.T 
LAW  10 

JMS*  =T.R 
JMS*  =T. F 
FOUND  $DC 

$TEXT 
$DC 


GET  CHANNEL  0  PARAMETER 
CONVERT  CHANNEL  0  VALUE 
SAVE  CHANNEL  0  VALUE 
GET  CHANNEL  1  PARAMETER 
CONVERT  CHANNEL  1  VALUE 
FORM  1  COMPLEMENT 
ADD  CHANNEL  0  VALUE 
FORM  DIFFERENCE  IN  VALUES 
SKIP  IF  VALUES  EQUAL 
OBTAIN  NEW  SAMPLES 
GET  ALLOCATION  MASK 
ALLOCATE  TELEPRINTER 
GET  ADDRESS  OF  TEXT  LIST 
TYPE  "ANALOG  INPUTS  MATCH 
GET  ALLOCATION  MASK 
RELEASE  TELEPRINTER 
TERMINATE  EXECUTION 


10 

"ANALOG  INPUTS  MATCH 
747577 


3 . 6  Push-Button  Processing 

The  following  system  subroutines  have  been  defined 
for  managing  the  push  buttons  which  are  associated  with  the 
display  control: 

P.T  -  The  task  whose  address  is  given  in  bits  3-17  of 
the  AC  is  declared  to  be  the  service  task  for 
manual  operation  of  the  push  buttons  (i.e., 
this  task  is  scheduled  whenever  the  state  of 
the  push  buttons  is  altered  by  the  operator) . 

If  the  AC  contains  zero  when  P.T  is  called,  a 
null  s<  rvice  task  (i.e.,  one  which  calls  P.E 
and  terminates)  is  used. 

P.E  -  Manual  operation  of  the  push  buttons  :s  enabled 
(i.e.,  the  state  of  the  push  buttons  may  be 
changed  by  the  operator) . 
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P.D  -  Manual  operation  of  the  push  buttons  is  dis¬ 
abled  (i.e.,  the  state  of  the  push  buttons  may 
not  be  changed  by  the  operator) .  A  call  to  P.D 
is  effected  whenever  the  operator  changes  the 
state  of  the  push  buttons. 

P.R  -  Push  buttons  0-11  are  read  into  bits  6-17  of 
the  AC,  and  bits  0-5  of  the  AC  are  cleared. 

P.S  -  Push  buttons  0-11  are  set  according  to  bitc 
6-17  of  the  AC. 

As  an  example  of  the  use  of  these  subroutines,  consider 
the  task  BUTTON  which  enables  manual  operation  of  the  push  but¬ 
tons  and  sets  the  button  numbered  one  greater  (modulo  12)  than 
the  number  of  the  one  pushed  by  the  operator.  The  procedure  is 
terminated  and  all  push  buttons  are  cleared  when  a  keyboard 


character 

is  struck.  An 

algorithm  for  this  task  is  the  fellow 

ing : 

BUTTON 

LAW 

22 

GET  ALLOCATION  MASK 

JMS* 

=T .  A 

ALLOCATE  KEYBOARD  &  PUSH  BUTTONS 

LAC 

=SERV 

GET  ADDRESS  OF  SERVICE  TASK 

JMS* 

=P.T 

DECLARE  SERVICE  TASK 

CLA 

GET  INITIAL  PUSH  BUTTON  STATE 

DAC 

STATE 

SAVE  FOR  USE  BY  SERV 

JMS* 

-  =P.S 

SET  INITIAL  PUSH  BUTTON  STATE 

JMS* 

=P.E 

EI'^BLE  MANUAL  OPERATION 

JMS* 

=B.K 

GET  KEYBOARD  CHARACTER 

JMS* 

=P .  D 

DISABLE  MANUAL  OPERATION 

CLA 

GET  FINAL  PUSH  BUTTON  STATE 

JMS* 

=  P.S 

CLEAR  PUSH  BUTTONS 

CLA 

GET  NULL  SERVICE  PARAMETER 

JMS* 

«p.T 

DECLARE  NULL  SERVICE  TASK 

LAW 

22 

GET  ALLOCATION  MASK 

JMS* 

=T.R 

RELEASE  KEYBOARD  &  PUSH  BUTTONS 

JMS* 

=T.F 

TERMINATE  TASK 

SERV 

JMS* 

=P.R 

READ  PUSH  BUTTONS 
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XOR 

RCR 

SNA 

STATE 

ISOLATF  LAST  BUTTON  PUSHED 

FORM  MASK  FOR  SETTING  BUTTONS 

SKIP  JF  NOT  BUTTON  #11 

]  AC 

=  4000 

SE'I  B’  T  ’’’ON  #0  BIT 

hac 

STATE 

SAVE  NEW  PUSH  BUTTON  STATE 

JMS* 

.  s 

SET  NEW  PUSH  BUTTON  STATE 

JMS* 

=p.r 

ENABLE  MANUAL  OPERATION 

JMS* 

=T.r' 

TERMINATE  TASK 

3 . 7  Display  Control  Communication 

The  following  system  subroutines  have  been  defined 
for  communicating  with  the  display  control: 

D.E  -  Display  interrupts  are  enabled  (i.e.,  a  light 
pen  flag  interrupt  or  an  internal  stop  inter¬ 
rupt  will  cause  the  System  to  read  the  display 
status  information  required  for  D.A,  D.Y,  D.X, 
and  D.O  and  to  schedule  the  appropriate  ser¬ 
vice  task) . 

D.D  -  Display  interrupts  are  disabled  (i.e.,  the 

System  will  ignore  light  pen  flag  and  internal 
stop  interrupts).  A  call  to  D.D  is  effected 
whenever  a  display  interrupt  occurs. 

D.P  -  The  task  whose  address  is  given  in  bits  3-17 
of  the  AC  is  declared  to  be  the  service  task 
for  light  pen  flags.  This  task  is  scheduled 
whenever  the  light  pen  sees  an  intensified 
portion  of  the  display  on  which  the  light  pen 
is  enabled  (see  Section  3.10) ,  providing  that 
display  interrupts  are  enabled  (via  D.E) .  If 
the  AC  contains  zero  when  D.P  is  called,  a 
null  service  task  (i.e.,  one  which  calls  D.E 
and  terminates)  is  used. 

D.A  -  The  address  of  the  display  on  the  last  display 
interrupt  is  returned  in  bits  3-17  of  the  AC 
with  bits  0-2  clear. 
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D.Y  -  The  y  coordinate  of  the  display  (measured 

relative  to  the  center  of  the  screen  in  scale, 
xl)  on  the  last  disDlay  interrupt  is  return^ 
in  the  AC  as  a  two's  complement  number. 

D.X  -  The  x  coordinate  of  the  display  (measured 

relative  to  the  center  of  tne  screen  in  scale 
xl)  on  the  last  display  interrupt  is  returned 
in  the  AC  as  a  two's  complement  number. 

D.O*-  The  address  which  is  the  operand  of  the  push 

jump  instruction  which  was  the  number  of  entrif s 
given  in  bits  12-17  of  the  AC  above  the  last 
entry  in  the  display  control's  push-down  list  or 
the  last  display  interrupt  is  returned  in  bits 
3-17  of  the  AC  with  bits  0-2  clear.  (A  more 
meaningful  interpretation  of  this  subroutine 
may  be  obtained  from  the  examples  in  Section 
3.10.)  A  failure  return  is  made  if  the  indicated 
push  jump  instruction  does  not  exist. 

The  external  stop  interrupt  and  the  edge  flag  inter¬ 
rupt  are  not  used.  The  function  of  the  external  stop  interrupt- 
may  be  performed  via  an  unconditional  internal  stop  interrupt 
(via  S.LU,  which  is  described  in  Section  3.1J).  Since  the 
virtual  display  area  established  by  the  System  is  75  inches  by 
75  inches,  the  edge  flags,  if  used,  would  occur  on  the  left 
and  lower  edges  of  the  screen,  but  not  on  the  upper  or  right 
edges.  Because  of  this  inconsistency,  the  edge  flags  are  not 
used . 

3 . 8  Light  Pen  Tracking 

A  light  pen  tracking  algorithm  is  supplied  with  the 
System  to  enable  user  tasks  to  follow  the  motion  of  the  light 
pen.  This  algorithm  has  been  empirically  determined  to  track 
the  light  pen  at  any  attainable  speed,  and  it  is  insensitive 
to  changes  in  direction  because  it  does  not  involve  prediction. 
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The  tracking  algorithm  may  be  described  with  the  aid 
of  the  following  diagram: 

12 

t - - - 1 


10 


When  the  display  for  the  tracking  algorithm  is  begun, 
strokes  1  and  2  are  drawn.  (Strokes  1  and  2  are  actually  coin¬ 
cident.)  The  x  coordinate  of  the  first  light  pen  hit  on  each 
stroke  is  recorded.  If  both  x  coordinates  are  obtained,  a  new 
x  coordinate  for  the  tracking  cross  is  computed  as  their  aver¬ 
age.  Strokes  3  and  4  are  then  drawn,  and  a  new  y  coordinate 
for  the  tracking  cross  is  computed  in  similar  manner  if  both 
y  coordinates  are  obtained. 
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If  any  one  of  the  four  coordinates  required  to  com¬ 
pute  a  new  position  of  the  tracking  cross  is  not  obtained,  a 
search  pattern  consisting  of  concentric  squares  5  through  12 
is  drawn.  When  a  light  pen  hit  is  detected  on  any  one  of  these 
squares,  the  search  pattern  is  terminated,  and  the  tracking 
cross  is  placed  at  the  coordinates  of  the  hit.  If  square  12 
is  completed  and  no  light  pen  hit  is  detected,  the  tracking 
process  is  terminated. 

Whenever  the  tracking  cross  is  positioned  via  the 
search  pattern,  rather  than  by  averaging  coordinates,  the 
tracking  display  is  immediately  repeated.  The  remainder  of  the 
active  display  structure  (Section  3.9)  is  not  displayed  until 
the  tracking  cross  can  be  positioned  by  averaging  coordinates. 

In  this  way,  the  tracking  display  is  given  priority  over  all 
other  displays  whenever  the  light  pen  is  being  moved  rapidly 
and  tracking  is  in  process. 

The  following  system  subroutines  hr*e  been  defined 
for  controlling  the  tracking  process: 

X.I  -  The  tracking  cross  is  placed  at  the  y  coordinate 
given  in  the  AC  and  the  x  coordinate  given  in 
the  MQ,  and  the  tracking  process  is  begun.  The 
coordinates,  which  are  given  as  two's  complement 
numbers,  are  interpreted  modulo  2^°  measured 
in  scale  xl  relative  to  the  center  of  the  screen. 

X.R  -  The  tracking  process  is  resumed  with  the  track¬ 
ing  cross  at  the  coordinates  where  tracking  was 
last  terminated  (by  X.T  or  by  completion  of 
square  12) . 

X.T  -  The  tracking  process  is  terminated.  (The  track¬ 
ing  cross  is  removed  from  the  screen.) 

X . s*-  A  failure  return  is  made  if  tracking  is  in 
process . 

-  The  y  tracking  coordinate  is  returned  in  the  AC 
as  a  two's  complement  number  measured  in  scale  xl 
relative  to  the  center  of  the  screen.  If  tracking 


X.Y 
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is  not  in  process,  the  y  coordinate  where  track¬ 
ing  was  last  terminated  is  returned. 

X.X  -  The  x  tracking  coordinate  is  returned  in  the 
AC  as  a  two's  complement  number  measured  in 
scale  xl  relative  to  the  center  of  the  screen. 

If  tracking  is  not  in  process,  the  x  coordinate 
where  tracking  was  last  terminated  is  returned. 

The  tracking  algorithm  is  independent  of  D.E  and  D.D. 

3 . 9  Display  Structure  Topology 

Each  entity  to  be  displayed  is  represented  in  the 
display  structure  provided  by  the  System  as  a  position  in  the 
hierarchy  of  the  entities  which  constitute  the  picture.  Each 
position  in  the  hierarchy  is  implemented  as  a  display  subrou¬ 
tine  which  is  called  a  level .  A  level  which  is  being  executed 
by  the  display  control  at  least  once  on  every  frame  is  called 
an  active  level.  One  particular  level,  which  is  always  active 
and  is  an  integral  part  of  the  system,  represents  the  75  inch 
by  75  inch  virtual  display  area  of  the  display  control  and  is 
called  the  highest  active  level. 

A  display  subroutine  which  is  not  itself  a  level  and 
which  contains  no  calls  to  levels  is  called  a  leaf .  All  of 
the  drawing  of  visible  portions  of  the  picture  is  accomplished 
by  leaves.  A  leaf  is  subject  to  the  restriction  that  the  state 
of  the  display  (coordinates,  light  pen  status,  scale,  intensity, 
blink  status,  light  pen  sense  indicator)  must  be  the  same  when 
the  subroutine  returns  as  when  it  is  entered.  Consequently, 
because  the  display  control's  POP  instruction  does  not  restore 
coordinates,  the  only  data  modes  which  are  useful  in  leaves 
are  vector  mode,  short  vector  mode,  and  increment  mode. 

The  set  L  of  all  levels  and  leaves  (both  active  and 
non-active)  is  partially  ordered,  i.e.,  there  exists  a  relation 
"<"  defined  on  L  such  that 
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(1) 

VxeL 

X 

< 

X 

(2) 

Vx,  yeL 

X 

< 

y 

and 

y<x  =  >x  =  y 

(3) 

Vx,  y,  zeL 

X 

< 

y 

and 

y<z  =  >x<z 

The  semantic  interpretation  of  the  expression  x  <_  y  is  that 
any  modification  of  the  entity  represented  by  the  level  x  (or 
in  the  drawing  produced  by  the  leaf  x,  if  x  is  a  leaf)  will 
effect  a  corresponding  modification  in  the  entity  represented 
by  the  level  y.  When  x  <_  y  ,  the  level  y  ic  said  to  own  the 
level  or  leaf  x.  An  attribute  of  a  level  y  is  a  level  or 
leaf  x  such  that  x  £  y  and  there  does  not  exist  a  level  z 
different  from  x  and  y  such  that  x  <_  z  and  z  _<  y  . 

As  an  example  of  this  interpretation  of  the  relation 
,  consider  a  triangle  which  is  to  be  represented  internally 
as  a  set  of  three  lines: 


A  display  structure  for  this  triangle  may  be  represented  by 
the  following  diagram.  (In  the  diagram,  x  <_  y  is  represented 
by  a  line  joining  x  and  y  such  that  y  appears  above  x 
in  the  diagram. ) 


Note  from  the  diagram  that  the  triangle  owns  each  of  its 
sides  (lines  a,  b,  and  c) .  If  line  b  is  now  deleted,  the 
display  structure  assumes  the  following  form: 

triangle 


line  a 


line  c 
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The  triangle  is  obviously  modified  by  this  operation  (in  fact, 
it  is  no  longer  a  triangle).  However,  the  fact  that  the  tri¬ 
angle  has  been  modified  does  not  imply  that  all  of  its  attributes 
have  been  modified.  In  this  example,  lines  a  and  c  remain  un¬ 
changed. 

The  set  X  of  all  active  levels  and  the  leaves  which 
they  own  is  also  partially  ordered,  since  X  c;  L  and  L  is 
partially  ordered.  Because  the  highest  active  level  represents 
the  virtual  display  area  of  the  display  control,  it  owns  every 
element  of  X.  Consequently,  if  the  operator  "+"  is  defined 
by  the  conditions 


(1) 

Vx, 

yeX 

X 

+ 

yeX 

(2) 

Vx, 

yeX 

X 

< 

x  +  y 

and  y  <_  x  +  y 

and 

(3) 

Vx, 

y,  zeX 

X 

< 

z  and 

y  <  z  — x  +  y  <  z  , 

the  pair  (X,+)  is  a  semilattice.  The  semantic  interpretation 
of  the  expression  x+y  is  that  x+y  is  a  level  which  repre¬ 
sents  the  most  primitive  entity  which  owns  both  of  the  entities 
represented  by  the  levels  x  and  y  . 

As  an  example  of  the  interpretation  of  the  operator 
"+",  consider  the  following  drawing  of  one  exterior  wall  of  a 
house : 


For  purposes  of  illustration,  assume  that  all  three  windows  in 
the  picture  are  identical,  each  instance  of  each  entity  in  the 
drawing  is  represented  by  a  separate  level,  and  the  drawing 
shown  is  the  only  one  being  displayed.  The  display  structure, 
then,  assumes  the  following  form: 
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highest  active  level 


Assume  that  a  task  which  records  two  references  to  the  picture 
with  the  light  pen  is  being  executed,  and  that  the  most  primi¬ 
tive  entity  which  owns  both  items  referenced  is  to  be  deleted. 
Clearly,  the  portion  of  the  structure  which  should  be  removed 
consists  of  everything  which  x+y  owns,  where  x  and  y  are 
the  two  levels  which  represent  the  entities  referenced  with 
the  light  pen.  For  example,  if  the  door  perimeter  and  a  win¬ 
dow  in  the  wall  of  the  house  are  referenced,  the  entire  wall 
of  the  house  is  deleted,  but  if  the  door  perimeter  and  the 
window  in  the  door  are  referenced,  only  the  door  is  deleted. 

A  level  is  implemented  as  the  data  structure  shown 
by  the  following  diagram  (all  numbers  are  octal) : 
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clear  LPSI  or  no  operation 
count  parameters  or  no  operation 
set  parameters 
)  enter  vector  mode 
\  y  coordinate  (no  intensity  bit) 
x  coordinate  and  escape  bit 
jump  instruction 
pointer  to  first  node  or  tail 


Node 


r 


push  jump  instruction 

pointer  to  attribute 

jump  instruction 

pointer  to  next  node  or  tail 


r  conditional  skip 
internal  stop 
address  of  service  task 
blink  off  or  no  operation 
(  enter  vector  mode 

-y  coordinate  (no  intensity  bit) 
-x  coordinate  and  escape  bit 
pop  instruction 


The  following  system  subroutines  have  been  defined 
for  managing  the  display  structure  topology.  (Examples  of 
their  use  are  given  in  Section  3.10.) 

S.TL*-  A  level  is  created  and  its  address  (i.e.,  the 
address  of  the  first  location  in  its  head)  is 
returned  in  bits  3-17  of  the  AC  with  bits  0-2 
clear.  A  failure  return  is  made  if  the  level 
cannot  be  created  because  of  insufficient  free 
display  storage. 

S.TD*-  The  non-active  level  whose  address  is  given  in 
bits  3-17  of  the  AC  is  destroyed.  A  failure 
return  is  made  if  the  level  has  attributes. 

S.TI*-  The  level  or  leaf  whose  address  is  given  in 
bits  3-17  of  the  MQ  is  inserted  into  (i.e., 
made  an  attribute  of)  the  level  whose  address 
is  given  in  bits  3-17  of  the  AC.  The  created 
node  is  inserted  immediately  after  the  head 
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in  the  level  data  structure.  A  failure  re¬ 
turn  is  made  if  the  required  node  cannot  be 
created  because  of  insufficient  free  display 
storage . 

S.TR*-  The  attribute  whose  address  is  given  in  bits 
3-17  of  the  MQ  is  removed  from  the  level 
whose  address  is  given  in  bits  3-17  of  the 
AC.  This  subroutine  does  not  return  until 
the  display  control  has  completed  the  current 
frame.  (Tasks  other  than  the  calling  -cask  are 
executed  during  this  delay.)  A  failure  return 
is  made  if  the  specified  attribute  is  not 
found  in  the  specified  level. 

3.10  Level  Modification 

The  following  system  subroutines  have  been  defined 
for  modifying  existing  levels: 

S.LH  -  The  address  of  the  highest  active  level  is 

returned  in  bits  3-17  of  the  AC  with  bits  0-2 
clear . 

S.LY  -  The  y  coordinate  of  the  level  whose  address 

is  given  in  bits  3-17  of  the  AC  is  set  to  the 
value  given  in  the  MQ.  The  given  coordinate 
is  interpreted  as  a  two's  complement  number  in 
the  scale  of  the  specified  level,  measured 
relative  to  the  y  coordinate  of  each  level  of 
which  the  specified  level  is  an  attribute. 

This  subroutine  has  no  effect  on  the  highest 
active  level,  where  the  coordinates  are  at 
the  center  of  the  screen. 

S.LX  -  The  x  coordinate  of  the  level  whose  address  is 
given  in  bits  3-17  of  the  AC  is  set  to  the 
value  given  in  the  MQ.  The  given  coordinate 
is  interpreted  as  a  two's  complement  number  in 
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the  scale  of  the  specified  level,  measured 
relative  to  the  x  coordinate  of  each  level 
of  which  the  specified  level  is  an  attribute. 
This  subroutine  has  no  effect  on  the  highest 
active  level,  where  the  coordinates  are  at  the 
center  of  the  screen. 

S.LP  -  The  scale,  intensity,  and  light  pen  status  are 
set  on  the  level  whose  address  is  given  in  bits 
3-17  of  the  AC  according  to  bits  9-17  of  the  MQ. 
The  content  of  the  MQ  is  interpreted  as  follows 


Bits 

Interpretation 

9 

set  scale 

according  to  bits  10-11 

10-11 

n,  where 

scale  is  x2n 

12 

set  light 

pen  status  according  to  bit  13 

13 

light  pen 

status  (1  =  enabled,  0  =  disabled) 

14 

set  intensity  according  to  bits  15-17 

15-17 

intensity 

value 

This  subroutine  has  no  effect  on  the  highest 
active  level,  where  the  scale  is  x8,  the 
intensity  is  7,  and  the  light  pen  is  disabled. 

S.LBE-  The  displays  generated  by  calls  (either  direct 
or  indirect)  to  leaves  from  the  level  whose 
address  is  given  in  bits  3-17  of  the  AC  are 
caused  to  blink  with  a  0.5-second  period.  Be¬ 
cause  the  339  POP  instruction  does  not  restore 
the  blink  status,  care  must  be  taken  to  insure 
that  this  blink  is  not  simultaneously  effec¬ 
tive  on  any  level  of  which  the  given  level  is 
an  owner.  This  subroutine  has  no  effect  on 
the  highest  active  level,  where  blink  is  dis¬ 
abled  . 

S.LBD-  Blinking  of  the  level  whose  address  is  given 
in  bits  3-17  of  the  AC  is  disabled  (i.e.,  the 
effect  of  a  call  to  S.LBE  is  removed). 


LC  -  The  scale  and/or  intensity  is  counted  up  or 
down  one  unit  on  the  level  whose  address  is 
given  in  bits  3-17  of  the  AC  according  to  bits 
12-15  of  the  MQ,  which  are  interpreted  as 
follows : 

Interpretation 

Count  scale  according  to  bit  13 
1  =  multiply  scale  by  2 ,  0  =  divide  scale  by  2 
Count  intensity  according  to  bit  15 
1  =  increment  intensity  by  unity, 

0  =  decrement  intensity  by  unity. 

This  subroutine  has  no  effect  on  the  highest 
active  level. 

LU  -  <n  unconditional  scheduling  of  the  task  whose 
address  is  given  in  bits  3-17  of  the  MQ  is 
effected  whenever  display  interrupts  are  en¬ 
abled  (via  D.E)  and  the  tail  of  the  level  whose 
address  is  given  in  bits  3-17  of  the  AC  is 
executed.  This  subroutine  has  no  effect  on 
the  highest  active  level. 

LS  -  The  task  whose  address  is  given  in  bits  3-17  of 
the  MQ  is  scheduled  whenever  display  interrupts 
are  enabled  (via  D.E) ,  the  tail  of  the  level 
whose  address  is  given  in  bits  3-17  of  the  AC 
is  executed,  and  the  coordinates  of  that  level 
are  on  the  screen.  This  subroutine  has  no 
effect  on  the  highest  active  level. 

LL  -  The  task  whose  address  is  given  in  bits  3-17 

of  the  MQ  is  scheduled  whenever  display  inter¬ 
rupts  are  enabled  (via  D.E)  ,  the  tail  of  the 
level  whose  address  is  given  in  bits  3-17  of 
the  AC  is  executed,  and  the  light  pen  sense 
indicator  has  been  set  during  execution  of  that 
level.  This  subroutine  has  no  effect  cn  the 
highest  active  level. 
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S.LN  -  The  effect  of  S.LU,  S.LS,  or  S.I.L  is  removed 
from  the  level  whose  address  is  given  in  bits 
3-17  of  the  AC. 

Whenever  the  scale,  light  pen  status,  intensity,  blink 
status,  or  coordinates  are  not  set  on  a  level,  the  quantities 
which  are  not  set  on  that  level  are  the  same  as  those  on  the 
level  of  which  it  is  an  attribute. 

Some  user  subroutines  which  call  these  system  subrou¬ 
tines,  as  well  as  those  in  Section  3.9,  are  given  below.  LVL 
generates  a  level,  inserts  a  specified  attribute  into  it,  sots 
the  x  and  y  coordinates  and  display  parameters  on  the  generated 
level,  and  inserts  the  generated  level  into  a  specified  owner 
level.  BUTN  calls  on  LVL,  and  then  establishes  a  task  to  be 
scheduled  whenever  the  light  pen  sense  indicator  is  set  while 
the  display  control  is  executing  the  generated  level.  BUTX 
generates  a  text  leaf  from  a  specified  text  list,  and  then  calls 
on  BUTN,  using  the  generated  text  leaf  as  the  attribute  para¬ 
meter.  CHEW  (which  calls  on  ATTR  to  find  the  first  attribute 
of  a  level)  destroys  a  given  display  structure,  and  salvages 
all  storage  from  the  destroyed  levels  and  text  leaves.  The 
display  structure  on  which  CHEW  operates  must  satisfy  two  con¬ 
ditions  : 

(1)  It  must  assume  the  form  of  a  semilattice. 

(2)  The  maximum  element  of  the  display  structure  must 
not  be  owned  by  any  level  (other  than  itself,  if  it  itself 

is  a  level).  (L.D  and  L.L  are  described  in  Section  3.11.) 


♦CALLING 

SEQUENCE: 

* 

JMS  LVL 

* 

$DC  - 

(LOC  CONTAINING  POINTER  TO  OWNER) 

* 

$DC  - 

(Y  COORDINATE) 

* 

$DC  - 

(X  COORDINATE) 

* 

$DC  - 

'  (DISPLAY  PARAMETER) 

* 

— 

(RETURN  IF  DISPLAY  STORAGE  EXCEEDED) 

* 

— 

(RETURN) 
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*AC  CONTENT  ON  ENTRY: 

*  POINTER  TO  ATTRIBUTE 

*AC  CONTENT  ON  RETURN: 


* 

LVL 


POINTER  TO  CREATED  LEVEL 
$DC  0 

JMS*  =T.L  SET  REENTRY  LOCK 

$DC  0 

DAC  LVL4  SAVE  POINTER  TO  ATTRIBUTE 

JMS*  =S.TL  CREATE  A  LEVEL 

JMP  LVL3  DISPLAY  STORAGE  EXCEEDED 

DAC  LVL 5  SAVE  POINTER  TO  LEVEL 

LAC  LVL 4  GET  POINTER  TO  ATTRIBUTE 

LMQ  SET  UP  PARAMETER 

LAC  LVL 5  GET  POINTER  TO  LEVEL 

JMS*  =S.TI  INSERT  ATTRIBUTE 

JMP  LVL 2  DISPLAY  STORAGE  EXCEEDED 

LAC*  LVL+2  GET  FIRST  PARAMETER 

DAC  LVL 4  SAVE  FIRST  PARAMETER 

ISZ  LVL+2  ADVANCE  TO  NEXT  PARAMETER 

LAC*  LVL+2  GET  Y  COORDINATE 

LMQ  SET  UP  PARAMETER 

LAC  LVL 5  GET  POINTER  TO  LEVI 

JMS*  =S.LY  SET  Y  COORDINATE 

ISZ  LVL+2  ADVANCE  TO  NEXT  PARAMETER 

LAC*  LVL+2  GET  X  COORDINATE 

LMQ  SET  UP  PARAMETER 

LAC  LVL 5  GET  POINTER  TO  LEVEL 

JMS*  =S . LX  SET  X  COORDINATE 

ISZ  LVL+2  ADVANCE  TO  NEXT  PARAMETER 

LAC*  LVL+2  GET  DISPLAY  PARAMETER 

LMQ  SET  UP  PARAMETER 

LAC  LVL 5  GET  POINTER  TO  LEVEL 

JMS*  =S.LP  SET  DISPLAY  PARAMETER 

LAC  LVL 5  GET  POINTER  TO  LEVEL 

LMQ  SET  UP  PARAMETER 
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LVL1 


LVL2 


LVL3 


LAC* 

LVL4 

GET  POINTER  TO  OWNER 

JMS* 

=S.TI 

INSERT  CREATED  LEVEL 

JMP 

LVLl 

DISPLAY  STORAGE  EXCEEDED 

LAC 

LVL5 

GET  POINTER  TO  CREATED  LEVEL 

JMP 

LVL3+2 

RETURN 

LAC 

LVL5 

GET  POINTER  TO  LEVEL 

JMS 

ATTR 

GET  FIRST  ATTRIBUTE 

$DC 

0 

LVL  PROGRAMMING  ERROR 

LMQ 

SET  UP  PARAMETER 

LAC 

LVL5 

GET  POINTER  TO  LEVEL 

JMS* 

=S.TR 

REMOVE  ATTRIBUTE 

$DC 

0 

LVL  PROGRAMMING  ERROR 

LAC 

LVL5 

GET  POINTER  TO  LEVEL 

JMS* 

=S.TD 

DESTROY  LEVEL 

$DC 

0 

LVL  PROGRAMMING  ERROR 

JMP 

LVL3+3 

RETURN 

LAC 

LVL5 

GET  POINTER  TO  LEVEL 

JMS* 

=S.TD 

DESTROY  LEVEL 

$DC 

0 

LVL  PROGRAMMING  ERROR 

ISZ 

LVL+2 

INCREMENT  RETURN  POINTER 

ISZ 

LVL+2 

INCREMENT  RETURN  POINTER 

ISZ 

LVL+2 

INCREMENT  RETURN  POINTER 

ISZ 

LVL+2 

INCREMENT  RETURN  POINTER 

JMS* 

=T.U 

UNLOCK  LVL  &  RETURN 

$DC 

LVL 

♦CALLING  SEQUENCE: 

*  JMS  BUTN 


(LOC  CONTAINING  POINTER  TO  OWNER) 

(Y  COORDINATE) 

(X  COORDINATE) 

(DISPLAY  PARAMETER) 

(SERVICE  TASK  ADDRESS) 

(RETURN  IF  DISPLAY  STORAGE  EXCEEDED) 
(RETURN  IF  SUCCESSFUL) 


♦AC  CONTENT  ON  ENTRY: 
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*  POINTER  TO  STRUCTURE  FOR  BUTTON  DISPLAY 

*AC  CONTENT  ON  RETURN  : 

*  POINTER  TO  LIGHT  BUTTON  LEVEL 

BUTN  $DC  0 

JMS*  =T.L  SET  REENTRY  LOCK 

$DC  0 

DAC  BUTN3  SAVE  POINTER  TO  STRUCTURE 

LAW  -4  GET  LVL  PARAMETER  COUNT 

DAC  BUTN4  INITIALIZE  COUNTER 

LAC  =BUTN1  GET  ADDRESS  OF  FIRST  LVL  PARAMETER 

DAC  BUTN5  INITIALIZE  POINTER 

LAC*  BUTN+2  GET  BUTN  PARAMETER 

DAC*  BUTN5  STORE  AS  LVL  PARAMETER 

ISZ  BUTN+2  INCREMENT  BUTN  PARAMETER  POINTER 

ISZ  BUTN5  INCREMENT  LVL  PARAMETER  POINTER 

ISZ  BUTN4  INCREMENT  COUNTER  &  SKIP  IF  DONE 

JMP  *-5  COPY  NEXT  PARAMETER 

LAC  BUTN3  GET  POINTER  TO  STRUCTURE 

JMS  LVL  GENERATE  INTERMEDIATE  LEVEL 

BUTNl  $DC  0  LOC  CONTAINING  POINTER  TO  OWNER 

$DC  0  Y  COORDINATE 

$DC  0  X  COORDINATE 

$DC  0  DISPLAY  PARAMETER 

JMP  BUTN 2  DISPLAY  STORAGE  EXCEEDED 

DAC  BUTN 3  SAVE  POINTER  TO  LEVEL 

LAC*  BUTN+2  GET  ADDRESS  OF  SERVICE  TASK 

LMQ  SET  UP  PARAMETER 

LAC  BUTN3  GET  POINTER  TO  LEVEL 

JMS*  =S.LL  SENSITIZE  LEVEL  TO  LPSI 

LAC  BUTN3  GET  POINTER  TO  LEVEL 

ISZ  BUTN+2  INCREMENT  RETURN  POINTER 

BUTN2  ISZ  BUTN+2  INCREMENT  RETURN  POINTER 

JMS*  =T.U  UNLOCK  BUTN  &  RETURN 

$DC 


BUTN 


I 
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*CALLING  SEQUENCE: 


* 

JMS 

BUTX 

* 

$DC 

— 

(ADDRESS  OF  TEXT  LIST) 

* 

$DC 

— 

(LOC  CONTAINING  POINTER  TO  OWNER) 

* 

$DC 

— 

(Y  COORDINATE) 

* 

$DC 

— 

(X  COORDINATE) 

* 

$DC 

— 

(DISPLAY  PARAMETER) 

* 

$DC 

— 

(SERVICE  TASK  ADDRESS) 

* 

— 

(RETURN  IF  DISPLAY  STORAGE  EXCEEDED) 

* 

— 

(RETURN  IF  SUCCESSFUL) 

*AC  CONTENT  ON 

RETURN : 

* 

POINTER  TO  LIGHT 

BUTTON  LEVEL 

BUTX 

$DC 

0 

JMS* 

Eh 

II 

SET  REENTRY  LOCK 

$DC 

0 

LAC* 

BUTX+2 

GET  ADDRESS  OF  TEXT  LIST 

JMS* 

=L.D 

CREATE  TEXT  LEAF 

JMP 

BUTX  4 

DISPLAY  STORAGE  EXCEEDED 

DAC 

BUTX7 

SAVE  POINTER  TEXT  LEAF 

LAW 

-6 

LOAD  AC  WITH  -6 

DAC 

PUTX5 

SET  PARAMETER  COUNTER 

LAC 

=BUTX2 

GET  ADDRESS  OF  BUTN  CALL 

DAC 

BUTX6 

SET  PARAMETER  POINTER 

BUTXl 

ISZ 

BUTX+2 

ADVANCE  TO  NEXT  PARAMETER 

ISZ 

BUTX6 

INCREMENT  PARAMETER  POINTER 

ISZ 

BUTX5 

SKIP  IF  NOT  PARAMETER 

SKP 

MOVE  PARAMETER 

JMP 

BUTX2-1 

CALL  BUTN 

LAC* 

BUTX+2 

GET  PARAMETER 

DAC* 

BUTX  6 

STORE  PARAMETER 

JMP 

BUTXl 

MOVE  NEXT  PARAMETER 

LAC 

BUTX7 

GET  POINTER  TO  TEXT  LEAF 

BUTX2 

JMS 

BUTN 

CREATE  LIGHT  BUTTON 

- 

$DC 

0 

LOC  CONTAINING-  POINTER  TO  OWNER 

$DC 

0 

Y  COORDINATE 
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$DC 

0 

X  COORDINATE 

$DC 

0 

DISPLAY  PARAMETER 

$DC 

0 

SERVICE  TASK  ADDRESS 

JMP 

BUTX3+2 

DISPLAY  STORAGE  EXCEEDED 

ISZ 

BUTX+2 

INDICATE  SUCCESS 

BUTX3 

JMS* 

=T.U 

UNLOCK  BUTX  &  RETURN 

$DC 

BUTX 

LAC 

BUTX7 

GET  POINTER  TO  TEXT  LEAF 

JMS* 

=  S.LL 

DESTROY  TEXT  LEAF 

JMP 

BUTX3 

RETURN 

BUTX4 

LAC 

BUTX+2 

GET  RETURN  POINTER 

TAD 

=6 

ADVANCE  PAST  PARAMETER  LIST 

DAC 

BUTX+2 

SET  FAILURE  RETURN  POINTER 

JMP 

BUTX  3 

RETURN 

*CALLING  SEQUENCE: 

*  JMS  CHEW 

*  -  (RETURN) 


*AC  CONTENT  ON  ENTRY: 

*  POINTER  TO  MAXIMUM  ELEMENT  IN  THE  STRUCTURE 

*TO  BE  CHEWED 

*THE  MAXIMUM  ELEMENT  SPECIFIED  MUST  OWN  ALL  LEVELS 
♦WHICH  OWN  ELEMENTS  OF  THE  STRUCTURE. 


CHEW 

$DC 

0 

JMS* 

►J 

il 

SET  REENTRY  LOCK 

$DC 

0 

DAC 

CHEW6 

SAVE  POINTER  TO  STRUCTURE 

LAC 

=CHEWQ 

GET  ADDRESS  OF  WORD  QUEUE 

JMS* 

=Q.C 

CLEAR  WORD  QUEUE 

CHEW1 

LAC* 

CHEW6 

GET  FIRST  WORD  FROM  STRUCTURE 

SNA 

SKIP  IF  ITEM  NOT  ALREADY  DELETED 

JMP 

CHEW5 

GET  NEXT  ITEM  FROM  QUEUE 

SAD 

=762010 

SKIP  IF  NOT  TEXT  LEAF 

JMP 

CHEW4 

DESTROY  TEXT  LEAF 

LAC 

CHEW6 

GET  POINTER  TO  STRUCTURE 

AND 

=70000 

GET  BREAK  FIELD  BITS 

SAD 

=10000 

SKIP  IF  NOT  LEVEL 
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SKP 

DESTROY  LEVEL 

JMP 

CHEW5 

GET  NEXT  ITEM  FROM  QUEUE 

CHEW2 

LAC 

CHEW6 

GET  POINTER  TO  LEVEL 

JMS 

ATTR 

GET  FIRST  ATTRIBUTE  FROM  LEVEL 

JMP 

CHEW3 

LEVEL  IS  EMPTY 

DAC 

CHEW7 

SAVE  POINTER  TO  ATTRIBUTE 

LMQ 

SET  UP  PARAMETER 

LAC 

CHEW6 

GET  POINTER  TO  LEVEL 

JMS* 

=S.TR 

REMOVE  ATTRIBUTE 

$DC 

0 

CHEW  PROGRAMMING  ERROR 

LAC 

CHEW7 

GET  POINTER  TO  ATTRIBUTE 

LMQ 

SET  UP  PARAMETER 

LAC 

=CHEWQ 

GET  ADDRESS  OF  WORD  QUEUE 

JMS* 

=Q .  A 

ADD  ATTRIBUTE  TO  QUEUE 

$DC 

0 

WORD  QUEUE  NOT  LARGE  ENOUGH 

JMP 

CHEW2 

PUT  NEXT  ATTRIBUTE  IN  QUEUE 

CHEW3 

LAC 

CHEW6 

GET  POINTER  TO  LEVEL 

JMS* 

=S.TD 

DESTROY  LEVEL 

$DC 

0 

CHEW  PROGRAMMING  ERROR 

JMP 

CHEW5 

CHEW  UP  NEXT  ITEM 

CHEW4 

LAC 

CHEW6 

GET  POINTER  TO  TEXT  LEAF 

JMS* 

=L.  L 

DESTROY  TEXT  LEAF 

CHEW5 

LAC 

=CHEWQ 

GET  ADDRESS  OF  WORD  QUEUE 

JMS* 

=Q.F 

GET  NEXT  ITEM  FROM  QUEUE 

JMP 

*+3 

QUEUE  EMPTY 

DAC 

CHEW6 

SAVE  POINTER  TO  ITEM 

JMP 

CHEW1 

CHEW  UP  ITEM  FROM  QUEUE 

JMS* 

=T.U 

UNLOCK  CHEW  &  RETURN 

$DC 

CHEW 

CHEWQ 

$DC 

*+200 

$DC 

200 

*CALLING 

SEQUENCE: 

* 

JMS 

ATTR 

* 

— 

(RETURN  IF  NO  MORE  ATTRIBUTES) 

* 

— 

(RETURN  IF  ATTRIBUTE  FOUND) 
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*AC  CONTENTS  ON  ENTRY: 

* 

ATTR 


ADDRESS  OF  LEVEL 

$DC 

0 

TAD 

=  7 

FORM  POINTER  TO  POINTER  TO  NODE 

DAC 

ATTR2 

SAVE  POINTER  TO  POINTER  TO  NODE 

LAC* 

ATTR  2 

GET  POINTER  TO  NODE  (OR  TAIL) 

DAC 

ATTR2 

SAVE  POINTER  TO  NODE  (OR  TAIL) 

LAC* 

ATTR? 

GET  FIRST  WORD  FROM  NODE  (OR  TAIL) 

AND 

=777770 

TRUNCATE  BREAK  FIELD 

SAD 

=762010 

SKIP  IF  NOT  NODE 

SKP 

NODE  FOUND 

JMP* 

ATTR 

NO  MORE  ATTRIBUTES 

ISZ 

ATTR2 

FORM  POINTER  TO  SECOND  LOC  IN  NODE 

LAC* 

ATTR  2 

GET  POINTER  TO  ATTRIBUTE 

ISZ 

ATTR 

INDICATE  SUCCESS 

JMP* 

ATTR 

RETURN 

As  an 

example  of 

how  these  subroutines  might  be  used, 

consider  a  task  called  SELGI  which  allows  the  operator  to  draw 


unrelated  straight  lines  on  the  display  with  the  light  pen. 
More  specifically,  when  the  task  is  begun,  it  allocates  the 
display  and  displays  the  following: 
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The  elements  of  this  display  are  arranged  in  the  following 
structure : 


The  SELGI  display  level  is  set  to  scale  x2,  each  light  button 
level  is  sensitized  to  the  light  pen  sense  indicator,  and  the 
line  level  (into  which  all  lines  drawn  by  the  operator  will  be 
inserted)  has  coordinates  at  the  center  of  the  screen. 

When  the  light  pen  is  pointed  at  the  DRAW  light 
button,  the  task  DRAW  is  scheduled.  The  task  DRAW  then  starts 
tracking  on  the  DRAW  light  button,  and  waits  (through  the  use 
of  T.P)  until  the  operator  loses  tracking.  Then,  if  the  Y 
tracking  coordinate  is  above  the  threshold  line,  a  line  of 
length  one  point  (which  appears  as  a  point  on  the  display)  is 
inserted  into  the  line  level  such  that  it  appears  at  the  coor¬ 
dinates  where  tracking  was  lost.  Otherwise,  no  line  is  gener¬ 
ated.  (The  DRAW  light  button  blinks  while  tracking  is  in 
process  for  this  operation.)  Up  to  64  lines  may  be  created 
in  this  manner. 

If  the  light  pen  is  now  pointed  at  any  of  the  unit- 
length  lines  (points)  on  the  scree'n,  tracking  is  started,  and 
one  end  of  the  line  is  affixed  to  the  tracking  cross.  The  line 
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then  may  be  stretched  by  moving  the  affixed  end  point  to  some 
other  position  on  the  screen.  If  the  light  pen  is  now  pointed 
at  any  line  which  is  longer  than  one  point,  tracking  is  started, 
and  the  end  point  of  the  line  which  is  closer  to  the  tracking 
cross  is  affixed  to  the  tracking  cross  and  may  be  moved  to  any 
position  on  the  screen. 

If  the  light  pen  is  pointed  at  the  ERASE  light  button, 
this  light  button  starts  blinking.  If,  while  the  ERASE  light 
button  is  blinking,  the  light  pen  is  pointed  at  some  line  on 
the  screen,  the  line  is  removed  from  the  line  level,  the  stor¬ 
age  which  it  occupied  is  salvaged,  and  the  blinking  of  the 
ERASE  light  button  is  stopped. 

If  the  light  pen  is  pointed  at  the  ESCAPE  light  but¬ 
ton,  the  entire  display  structure  created  by  SELGI  is  destroyed 
via  the  subroutine  CHEW.  The  task  SELGI  then  releases  the 
display  and  terminates. 

Lines  are  represented  internally  in  this  program  by 
leaves  which  have  the  following  format: 

VEC  ENTER  VECTOR  MODE 

-  Y  DISPLACEMENT  (NON INTENSIFIED) 

-  X  DISPLACEMENT  (NO  ESCAPE) 

-  Y  DISPLACEMENT  (INTENSIFIED) 

-  X  DISPLACEMENT  (NO  ESCAPE) 

-  Y  DISPLACEMENT  (NON INTENSIFIED) 

-  X  DISPLACEMENT  (ESCAPE > 

POP  END  OF  LEAF 

Each  leaf  actually  represents  a  triangle  with  two  nonintensi f ied 
sides.  This  scheme  permits  the  end  points  of  the  line  to  occur 
anywhere  on  the  screen: 


first  vector 


(0,0) 


/ 


vector 


third  vector 
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SELGI 


LAW 

1 

GET  DISPLAY  ALLOCATION  MASK 

JMS* 

=T  .  A 

ALLOCATE  DISPLAY 

LAC 

=LINES 

GET  ADDRESS  OF  LINE  STORAGE  AREA 

DAC 

DIS 

SET  STORAGE  POINTER 

LAW 

-1.000 

LOAD  AC  WITH  -512 

DAC 

FRM 

SET  STORAGE  COUNTER 

DZM* 

DIS 

CLEAR  STORAGE  LOCATION 

ISZ 

DIS 

INCREMENT  STORAGE  POINTER 

ISZ 

FRM 

SKIP  IF  STORAGE  AREA  CLEARED 

jMr 

*-3 

CLEAR  NEXT  STORAGE  LOCATION 

JMS* 

=S.LH 

GET  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

DAC 

HAL 

SAVE  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

LAC 

=TXT 

GET  ADDRESS  OF  TITLE  TEXT  LIST 

JMS* 

=L.D 

CREATE  TEXT  LEAF 

JMP 

END 

DISPLAY  STORAGE  EXCEEDED 

DAC 

DIS 

SAVE  POINTER  TO  TITLE  LEAF 

JMS 

LVL 

GENERATE  SELGI  DISPLAY  LEVEL 

$DC 

HAL 

POINTER  TO  HIGHEST  ACTIVE  LEVEL 

$DC 

360 

Y  COORDINATE 

$DC 

-34 

X  COORDINATE 

$DC 

500 

SCALE  X2 

JMP 

FAIL 

DISPLAY  STORAGE  EXCEEDED 

DAC 

FRM 

SAVE  POINTER  TO  SELGI  DISPLAY  LEVEL 

JMS 

BUTX 

GENERATE  DRAW  LIGHT  BUTTON 

$DC 

TXTl 

DRAW  TEXT  LIST 

$DC 

FRM 

POINTER  TO  SELGI  DISPLAY  LEVEL 

$DC 

-750 

Y  COORDINATE 

$DC 

-344 

X  COORDINATE 

$DC 

0 

NULL  DISPLAY  PARAMETER 

$DC 

DRAW 

DRAW  SERVICE  TASK 

JMP 

END 

DISPLAY  STORAGE  EXCEEDED 

JMS 

BUTX 

GENERATE  ERASE  LIGHT  BUTTON 

$DC 

TXT  2 

ERASE  TEXT  LIST 

$DC 

FRM 

POINTER  TO  SELGI  DISPLAY  LEVEL 

$DC 

-750 

Y  COORDINATE 
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$DC 

10 

X  COORDINATE 

$DC 

0 

NULL  DISPLAY  PARAMETER 

$DC 

ERASE 

ERASE  SERVICE  TASK 

JMP 

EN") 

DISPLAY  STORAGE  EXCEEDED 

JMS 

BTJTX 

GENERATE  ESCAPE  LIG’TT  BUTTON 

$DC 

TAT  3 

ESCAPE  TEXT  LIST 

$DC 

FIU-l 

POINTER  TO  SEI.GI  DISPLAY  LEVEL 

$DC 

-750 

Y  COORDINATE 

$DC 

3  5- 

X  COORDINATE 

$DC 

0 

NULL  DISPLAY  PARAMETER 

$DC 

ESCAPE 

ESCAPE  SERVICE  TASK 

JMP 

END 

DISPLAY  STORAGE  EXCEEDED 

JMS* 

=S  TL 

CREATE  LINE  LEVEL 

JMP 

END 

DISPLAY  STORAGE  EXCEEDED 

DAC 

DIG 

SAVE  POINTER  TO  LINE  LEVEL 

LMQ 

SET  UP  PARAMETER 

LAC 

FRM 

GET  POINTER  TO  SELGI  DISPLAY  LEVEL 

JMS* 

=S .  71 

INSERT  LINE  LEVEL 

JMP 

FAIL 

DISPLAY  STORAGE  EXCEEDED 

LAW 

60 

GET  LIGHT  PEN  ON  PARAMETER 

LMQ 

SET  UP  PARAMETER 

LAC 

ITS 

GET  POINTER  TO  LINE  LEVEL 

JMS* 

.LP 

ENABLE  LIGHT  PEN  ON  LINE  LEVEL 

LAW 

-360 

GET  Y  COORDINATE 

LMQ 

SET  UP  PARAMETER 

LAC 

DIS 

GET  POINTER  TO  LINE  LEVEL 

JMS* 

=S.I,Y 

SET  Y  COORDINATE  OF  LINE  LEVEL 

LAC 

-34 

GET  X  COORDINATE 

LMQ 

SET  UP  PARAMETER 

LAC 

DIS 

GET  POINTER  TO  LINE  LEVEL 

JMS* 

=S.IX 

SET  X  COORDINATE  OF  LINE  LEVEL 

LAC 

-MOVE 

GET  ADDRESS  OF  LINE  MOVING  TASK 

JMS* 

ii 

a 

►0 

SET  LIGHT  PEN  FLAG  SERVICE 

JMS* 

=D.E 

ENABLE  DISPLAY  INTERRUPTS 

DZM 

Frc: PE+1 

CLEAR  ESCAPE  SWITCH 
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LAC 

ESCAPE+1 

GET  ESCAPE  SWITCH 

SZA 

SKIP  IF  ESCAPE  NOT  PENDING 

JMP 

END 

TERMINATE  SELGI 

SKP 

PREPARE  TO  SCHEDULE  NEXT  LOCATION 

JMP 

*-4 

CHECK  ESCAPE  SWITCH 

JMS* 

n 

• 

►a 

SCHEDULE  PREVIOUS  LOCATION 

FAIL 

LAC 

DIS 

GET  POINTER  TO  NONACTIVE  STRUCTURE 

JMS 

CHEW 

DESTROY  NONACTIVE  STRUCTURE 

END 

LAC 

HAL 

GET  POINTER  TO  HIGHEST  ACTIVE  LEVEL 

JMS 

CHEW 

DESTROY  ACTIVE  STRUCTURE 

CLA 

GET  NULL  LIGHT  PEN  FLAG  SERVICE 

JMS* 

II 

D 

• 

>d 

SET  NULL  LIGHT  PEN  SERVICE 

LAW 

1 

GET  DISPLAY  ALLOCATION  MASK 

JMS* 

=T.R 

RELEASE  DISPLAY 

JMA* 

ll 

• 

TERMINATE 

DRAW 

LAW 

-720 

GET  INITIAL  X  TRACKING  COORDINATE 

LMQ 

SET  UP  PARAMETER 

LAW 

-730 

GET  INITIAL  Y  TRACKING  COORDINATE 

JMS* 

=X.I 

INITIALIZE  TRACKING 

CLA 

PREPARE  TO  READ  OWNER  0  LEVELS  BACK 

JMS* 

=D .  0 

READ  ADDRESS  OF  DRAW  LEVEL 

$DC 

0 

PROGRAMMING  ERROR  IF  D.O  FAILS 

JMS* 

=S . LBE 

ENABLE  BLINK  ON  DRAW  LIGHT  BUTTON 

JMS* 

=X.S 

SKIP  IF  TRACKING  HAS  BEEN  LOST 

JMS* 

=T.P 

CHECK  TRACKING  AGAIN 

JMS* 

=X  •  Y 

READ  Y  TRACKING  COORDINATE 

TAD 

=  700 

FORM  THRESHOLD  CHECK 

SPA 

SKIP  IF  LINE  IS  TO  BE  CREATED 

JMP 

DRAWl 

IGNORE  ATTEMPT  TO  CREATE  LINE 

LAC 

=LINES 

GET  POINTER  TO  LINE  STORAGE 

DAC 

FRM 

SET  STORAGE  POINTER 

LAW 

-100 

GET  MAXIMUM  LINE  COUNT 

DAC 

CNT 

SET  LINE  COUNTER 

LAC* 

FRM 

GET  FIRST  WORD  OF  LINE  BLOCK 

SNA 

SKIP  IF  LINE  BLOCK  IN  USE 
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DRAWl 


MOVE 


JMP 

*+7 

LINE  BLOCK  IS  AVAILABLE 

LAC 

FRM 

GET  STORAGE  POINTER 

TAD 

=  10 

FORM  ADDRESS  OF  NEXT  LINE  BLOCK 

DAC 

FRM 

SET  STORAGE  POINTER  TO  NEXT  BLOCK 

ISZ 

CNT 

SKIP  IF  NO  MORE  LINE  STORAGE 

JMP 

*-7 

CHECK  AVAILABILITY  OF  LINE  BLOCK 

JMP 

DRAW1 

IGNORE  ATTEMPT  TO  CREATE  LINE 

I  AW 

1121 

GET  VEC  INSTRUCTION 

DAC* 

FRM 

STORE  IN  FIRST  LOCATION  OF  LINE  BLOCK 

L  AC 

FRM 

GET  POINTER  TO  LINE  BLOCK 

TAD 

=  7 

FORM  POINTER  TO  LAST  WORD  7N  BLOCK 

DAC 

CNT 

SAVE  POINTER  TO  LAST  WORD  IN  BLOCK 

LAW 

3000 

GET  POP  INSTRUCTION 

DAC* 

CNT 

STORE  IN  LAST  WORD  IN  BLOCK 

LAC 

FRM 

GET  POINTER  TO  LINE  BLOCK 

JMS 

FIXBGN 

SET  1ST  END  POINT  TO  TRACKING  COORD 

LAC 

FRM 

GET  POINTER  TO  LINE  BLOCK 

JMS 

FIXEND 

SET  2ND  END  POINT  TO  TRACKING  COORD 

LAC 

FRM 

GET  POINTER  TO  LINE  BLOCK 

LMQ 

SET  UP  PARAMETER 

LAC 

DIS 

GET  POINTER  TO  LINE  LEVEL 

JMS* 

=S.TI 

INSERT  LINE  BLOCK 

NOP 

DISPLAY  STORAGE  EXCEEDED 

CLA 

PREPARE  TO  READ  OWNER  0  LEVELS  BACK 

JMS* 

=D.  0 

READ  ADDRESS  OF  DRAW  LEVEL 

$DC 

0 

PROGRAMMING  ERROR  IF  D.O  FAILS 

JMS* 

=S . LBD 

STOP  BLINK  OF  DRAW  LIGHT  BUTTON 

JMS* 

=D.E 

ENABLE  DISPLAY  INTERRUPTS 

JMS* 

=T.F 

TERMINATE 

JMS* 

il 

D 

►< 

READ  Y  DISPLAY  COORDINATE 

DAC 

MOVEY 

SAVE  Y  DISPLAY  COORDINATE 

JMS* 

ii 

D 

X 

READ  X  DISPLAY  COORDINATE 

LMQ 

SET  UP  PARAMETER 

LAC 

MOVEY 

GET  Y  DISPLAY  COORDINATE 

JMS* 

=X .  I 

INITIALIZE  TRACKING 
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WATCH 


CLA 

JMS* 

O 

Q 

ll 

$DC 

0 

DAC 

MOVEl 

DAC 

MOVE  2 

ISZ 

MOVE  2 

TAD 

=  5 

DAC 

MOVE  3 

LAC* 

MCVE2 

XOR 

=  2000 

JMS* 

-C.CB 

LLSS 

1 

TAD 

MOVEY 

GSM 

DAC 

MOVE  4 

LAC* 

MOVE  3 

JMS* 

=C.CB 

LLSS 

1 

TAD 

MOVEY 

GSM 

CMA 

TAD 

MOVE  4 

SMA 

JMP 

*+3 

JMS 

WATCH 

JMS 

FIXBGN 

JMS 

WATCH 

JMS 

FIXEND 

$DC 

0 

LAC 

MOVEl 

XCT* 

WATCH 

JMS* 

=X.S 

JMP 

*+6 

LAW 

-40 

JMS* 

=N.  C 

PREPARE  TO  READ  OWNER  0  LEVELS  BACK 

READ  ADDRESS  OF  LINE  LEAF 

PROGRAMMING  ERROR  IF  D.O  FAILS 

SAVE  POINTER  TO  LINE  LEAF 

SAVE  COPY  OF  POINTER  TO  LINE  LEAF 

FORM  POINTER  TO  FIRST  Y  DISPLACEMENT 

FORM  POINTER  TO  THIRD  Y  DISPLACEMENT 

SAVE  POINTER  TO  THIRD  Y  DISPLACEMENT 

GET  FIRST  Y  DISPLACEMENT 

INVERT  SIGN  BIT 

CONVERT  TO  TWO'S  COMPLEMENT 

MULTIPLY  BY  2 

ADD  Y  DISPLAY  COORDINATE 

FORM  ABSOLUTE  VALUE 

SAVE  FOR  LATER  COMPARISON 

GET  THIRD  Y  DISPLACEMENT 

CONVERT  TC  TWO'S  COMPLEMENT 

MULTIPLY  BY  2 

ADD  Y  DISPLAY  COORDINATE 

FORM  ABSOLUTE  VALUE 

FORM  NEGATIVE  OF  ABSOLUTE  VALUE 

ADD  DISPLACEMENT  FROM  OTHER  END 

SKIP  IF  CLOSER  TO  FIRST  Y  DISPLACEMENT 

CLOSER  TO  SECOND  Y  DISPLACEMENT 

ENTER  UPDATING  TASK 

PARAMETER  FOR  UPDATING  TASK 

ENTER  UPDATING  TASK 

PARAMETER  FOR  UPDATING  TASK 

GET  POINTER  TO  LINE  LEAF 

UPDATE  AFFIXED  END  POINT 

SKIP  IF  TRACKING  NOT  IN  PROCESS 

SCHEDULE  NEXT  UPDATING 

LOAD  AC  WITH  -32 

WAIT  ABOUT  HALF  A  SECOND 
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JMS* 

~D .  E 

ENABLE  DISPLAY  INTERRUPTS 

JMS* 

=T.F 

TERMINATE 

JMP 

WATCH+1 

UPDATE  END  POINT 

JMS* 

-T.  P 

SCHEDULE  PREVIOUS  LOCATION 

ERASE 

LAC 

=DELETE 

GET  ADDRESS  OF  LINE  DELETE  TASK 

JMS* 

ii 

D 

T> 

SET  LIGHT  PEN  FLAG  SERVICE 

CLA 

PREPARE  TO  READ  OWNER  0  LEVELS  BACK 

JMS* 

ii 

a 

o 

GET  POINTER  TO  ERASE  LEVEL 

$DC 

0 

PROGRAMMING  ERROR  IF  D.O  FAILS 

DAC 

ERS 

SAVE  POINTER  TO  ERASE  LEVEL 

JMS* 

- S . LBE 

START  BLINKING  ERASE  LIGHT  BUTTON 

JMS* 

Ui 

Q 

II 

ENABLE  DISPLAY  INTERRUPTS 

JMS* 

“T .  F 

TERMINATE 

DELETE 

LAC 

ERS 

GET  POINTER  TO  ERASE  LEVEL 

JMS* 

=S . LBD 

STOP  BLINKING  ERASE  LIGHT  BUTTON 

CLA 

PREPARE  TO  READ  OWNER  0  LEVELS  BACK 

JMS* 

ll 

a 

o 

GET  POINTER  TO  LINE  LEAF 

$DC 

0 

PROGRAMMING  ERROR  IF  D.O  FAILS 

DAC 

FRM 

SAVE  POINTER  TO  LINE  LEAF 

LMQ 

SET  UP  PARAMETER 

LAC 

DIS 

GET  POINTER  TO  LINE  LEVEL 

JMS* 

=S .  TR 

REMOVE  LINE  LEAF 

$DC 

0 

PROGRAMMING  ERROR  IF  S . TR  FAILS 

DZM* 

FRM 

DESTROY  LINE  LEAF 

LAC 

=MOVE 

GET  ADDRESS  OF  LINE  MOVING  TASK 

JMS* 

=D.  P 

SET  LIGHT  PEN  SERVICE 

LAW 

-40 

LOAD  AC  WITH  -32 

JMS* 

=N.C 

WAIT  ABOUT  HALF  A  SECOND 

JMS* 

=D.E 

ENABLE  DISPLAY  INTERRUPTS 

JMS* 

=T .  F 

TERMINATE 

ESCAPE 

JMS 

*  +  l 

SET  ESCAPE  SWITCH 

$DC 

0 

ESCAPE  SWITCH 

JMS* 

=T.F 

TERMINATE 

FIXBGN 

$DC 

0 

JMS 

FIXRD 

SET  UP  POINTERS  FOR  FIXING  LEAF 
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FIXEND 


FIXRD 


LAC 

FIXY 

GET  Y  TRACKING  COORDINATE 

DAC* 

FIX1 

SET  FIRST  Y  DISPLACEMENT 

LAC 

FIXX 

GET  X  TRACKING  COORDINATE 

DAC* 

FIX2 

SET  FIRST  X  DISPLACEMENT 

JMS 

FIXFIX 

CORRECT  INTENSIFIED  VECTOR 

JMP* 

FIXBGN 

RETURN 

$DC 

0 

JMS 

FIXRD 

SET  UP  POINTERS  FOR  FIXING  LEAF 

LAC 

FIXY 

GET  Y  TRACKING  COORDINATE 

XOR 

=  2000 

INVERT  SIGN  BIT 

DAC* 

F1X5 

SET  THIRD  Y  DISPLACEMENT 

LAC 

FIXX 

GET  X  TRACKING  COORDINATE 

XOR 

=  6000 

INVERT  SIGN  BIT,  SET  ESCAPE  BIT 

DAC* 

FIX6 

SET  THIRD  X  DISPLACEMENT 

JMS 

FIXFIX 

CORRECT  INTENSIFIED  VECTOR 

JMP* 

FIXEND 

RETURN 

$DC 

0 

TAD 

=  1 

FORM  POINTER  TO  FIRST  Y  DISPLACEMENT 

DAC 

FIXl 

SAVE 

TAD 

=  1 

FORM  POINTER  TO  FIRST  X  DISPLACEMENT 

DAC 

FIX2 

SAVE 

TAD 

=  1 

FORM  POINTER  TO  SECOND  Y  DISPLACEMENT 

DAC 

FIX3 

SAVE 

TAD 

=  1 

FORM  POINTER  TO  SECOND  X  DISPLACEMENT 

DAC 

FIX4 

SAVE 

TAD 

=  1 

FORM  POINTER  TO  THIRD  Y  DISPLACEMENT 

DAC 

FIX5 

SAVE 

TAD 

=  1 

FORM  POINTER  TO  THIRD  X  DISPLACEMENT 

DAC 

FIX6 

SAVE 

JMS* 

SH 

• 

X 

ii 

READ  Y  TRACKING  COORDINATE 

LRSS 

1 

DIVIDE  BY  2 

JMS* 

ii 

o 

• 

CO 

n 

CONVERT  TO  DISPLAY  COORDINATE 

DAC 

FIXY 

SAVE 

JMS* 

=X.X 

READ  X  TRACKING  COORDINATE 

LRSS 

1 

DIVIDE  BY  2 
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JMS*  =C.BC  CONVERT  TO  DISPLAY  COORDINATE 

DAC  FI XX  SAVE 

JMP*  FIXRD  RETURN 

FIXFIX  $DC  0 

LAC*  FIXl  GET  FIRST  Y  DISPLACEMENT 

JMS*  =C.CB  CONVERT  TO  TWOS  COMPLEMENT 

DAC  FIXY  SAVE 

LAC*  FIX5  GET  THIRD  Y  DISPLACEMENT 

JMS*  =C.CB  CONVERT  TO  TWOS  COMPLEMENT 

TAD  FIXY  ADD  FIRST  Y  DISPLACEMENT 

JMS*  =C.BC  CONVERT  TO  DISPLAY  COORDINATE 

SZA  SKIP  IF  Y  DISPLACEMENTS  WERE  EQUAL 

JMP  *+7  CONVERTED  VALUE  IS  NONZERO 

LAC*  FIX5  GET  THIRD  Y  DISPLACEMENT 

JMS*  =C.CB  CONVERT  TO  TWOS  COMPLEMENT 

TAD  =1  MAKE  DIFFERENT  FROM  1ST  Y  DISPLACEMENT 

JMS*  =C.BC  CONVERT  TO  DISPLAY  COORDINATE 

DAC*  FIX5  STORE  MODIFIED  THIRD  Y  DISPLACEMENT 

LAW  1  GET  DISPLACEMENT  OF  1 

XOR  =6000  SET  ESCAPE  BIT,  INVERT  SIGN  BIT 

DAC*  FIX3  STORE  SECOND  Y  DISPLACEMENT 

LAC*  FIX2  GET  FIRST  X  DISPLACEMENT 

JMS*  =C.CB  CONVERT  TO  TWOS  COMPLEMENT 

DAC  FI XX  SAVE 

LAC*  FIX6  GET  THIRD  X  DISPLACEMENT 

JMS*  =C . CB  CONVERT  TO  TWOS  COMPLEMENT 

TAD  FIXX  ADD  FIRST  X  DISPLACEMENT 

JMS*  =C.BC  CONVERT  TO  DISPLAY  COORDINATE 

XOR  =2000  INVERT  SIGN  BIT 

DAC*  FIX4  SET  SECOND  X  DISPLACEMENT 

JMP*  FIXFIX  RETURN 

TXT  $DC  2 

$TEXT  "SELGI" 

TXTl  $DC  2 


$TEXT  "DRAW" 


TXT2 


$DC  2 
$TEXT  "ERASE" 
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TXT3  $DC  2 

$TEXT  "ESCAPE" 

LINES  $DS  1000 

$END 

3.11  Text  List  Manipulation 

A  structure  which  may  be  used  to  represent  efficiently 
strings  of  text  in  core  is  called  a  "text  list."  A  text  list 
consists  of  a  word  which  contains  a  number  m  which  represents 
the  length  of  the  list,  followed  by  m  words,  each  of  which 
contains  three  6-bit  characters.  As  an  example,  a  text  list 
which  represents  the  string 

A  SIMPLE  EXAMPLE 

is  the  following  (in  octal  form) : 

000006 

127634 

222631 

251676 

164112 

263125 

167777 

This  text  list  may  easily  be  represented  in  assembly  language 
via  the  TEXT  pseudo-op: 

LIST  $DC  6 

$TEXT  "A  SIMPLE  EXAMPLE" 

The  address  of  the  text  list  is  the  address  of  its  first  word. 

In  this  example,  LIST  is  a  symbol  whose  value  is  the  address 
of  the  text  list. 

A  "text  leaf"  is  a  representation  of  a  text  list  as 
a  display  leaf.  The  leaf  is  composed  of  a  series  of  push  jumps 
to  various  character  generation  subroutines  within  the  System. 
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A  carriage  return,  however,  is  represented  explicitly  in  the 
text  leaf  by  three  words  which  generate  a  vector  which  restores 
the  X  coordinate  to  its  value  just  before  the  display  control 
enters  the  text  leaf.  An  additional  vector  is  included  at  the 
end  of  the  text  leaf  to  restore  both  the  X  and  Y  coordinates. 
The  high-order  six  bits  of  the  second  word  of  each  push  jump 
contain  the  6-bit  code  for  the  character  which  the  push  jump 
represents.  Each  character  is  drawn  in  increment  mode  and  is 
7  points  high  by  5  points  wide.  The  trailing  space,  which  is 
produced  by  each  character  generation  subroutine,  is  3  points 
wide. 

As  an  example  of  a  text  leaf,  consider  the  following 

text  list: 

LEAF  $DC  10 

$TEXT  "EXAMPLE  OF" 

$DC  747577 
$TEXT  "2  LINES" 

The  text  leaf  which  would  be  produced  from  this  text  list  is 
the  following: 


762010 

16 - 

762010 

41 - 

762010 

12 - 

762010 

26 - 

762010 

31 - 

762010 

25 - 

762010 

16 - 

762010 

76 - 

762010 

30 - 

762010 

17 - 

761121 

400000 

006120 
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762010 

75  - 

762010 

02 - 

762010 

76  - 

762010 

25 - 

762010 

22 - 

762010 

27 - 

762010 

16 - 

762010 

34 - 

761121 

400020 

006070 

763000 

The  following  system  subroutines  have  been  defined 
for  manipulating  text  lists  and  text  leaves: 

L.T  -  The  text  list  whose  address  is  given  in  bits 
3-17  of  the  AC  is  typed  on  the  teletype. 

L.D*-  A  text  leaf  is  generated  from  the  text  list 

whose  address  is  given  in  bits  3-17  of  the  AC. 
The  address  of  the  generated  text  leaf  is  re¬ 
turned  in  bits  3-17  of  the  AC.  A  failure  re¬ 
turn  is  made  if  the  text  leaf  cannot  be  gener¬ 
ated  because  of  insufficient  free  display 
storage . 

L.L  -  The  text  leaf  whose  address  is  given  in  bits 
3-17  of  the  AC  is  destroyed,  and  the  storage 
which  it  occupied  is  salvaged  by  the  System. 


4.  IDLE-TIME  TASK 


The  idle-time  task,  which  is  executed  whenever  the 
System  is  in  system  state  (Section  2.3),  interprets  various 
keyboard  commands  which  provide  some  functions  which  are  useful 
for  testing  and  modifying  user  tasks.  These  commands  are  des¬ 
cribed  in  Sections  4.1  through  4.5.  Each  command  is  given  by 
typing  only  the  underlined  characters;  the  System  will  type  all 
other  characters  shown. 


4 . 1  Copy  Functions 


The  command 


FROM 


r 

r 

TELETYPE 

TELETYPE 

C^APER  TAPE 

TO 

PAPER  TAPE 

, 

[core 

£ORE 

DISPLAY  ^ 

allows  the  operator  to  transfer  data  from  teletype,  paper  tape, 
or  core  to  teletype,  paper  tape,  core,  or  the  display.  Many 
of  these  copy  functions  normally  are  specified  by  other  names. 
For  example,  a  copy  from  paper  tape  to  core  is  called  loading , 
a  copy  from  core  to  teletype  or  from  core  to  display  is  called 
a  dump ,  a  copy  from  teletype  to  core  is  called  altering ,  etc. 

When  a  transfer  from  teletype  to  any  device  other 
than  core  is  specified,  everything  typed  on  the  teletype  up  to 
the  next  character  which  maps  into  a  6-bit  null  character  (Sec¬ 
tion  3.3)  is  transferred  to  the  device  specified.  After  a  null 
character  is  typed,  the  idle-time  task  is  ready  for  a  new 
command.  When  copying  from  teletype  to  core,  the  following 
sequence  of  events  occurs: 


(1)  The  operator  types  a  5-digit  octal  address  on  t.ie 
keyboard.  If  one  character  which  he  types  is  not  an  octal 
digit,  it  is  interpreted  as  the  first  character  of  a  new  com¬ 
mand,  and  the  copy  from  teletype  to  core  is  terminated. 
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(2)  The  idle-time  task  types  the  content  of  the  loca 
tion  specified  on  the  current  line  of  text. 

(3)  The  operator  types  a  6-digit  octal  content  to 
replace  the  content  of  the  location  specified  on  the  current 
line  of  text.  If  he  types  a  carriage  return  in  place  of  one 
of  the  octal  digits,  the  content  of  the  location  is  left  un¬ 
changed.  If  he  types  a  character  which  is  neither  an  octal 
digit  nor  a  carriage  return,  the  copy  task  proceeds  with  Step  1 

(4)  The  address  of  the  location  which  immediately 
follows  the  one  which  was  just  examined  (and  perhaps  modified) 
is  typed.  The  copy  task  then  proceeds  with  Step  2. 

As  an  example  of  a  copy  from  teletype  to  core,  con¬ 
sider  setting  the  content  of  location  23571g  to  547521g  and 
the  content  of  location  23574g  to  6072l3g.  This  may  be  accom¬ 
plished  by  either  of  the  following  procedures: 

FROM  TELETYPE  TO  CORE 


23571 

172356 

547521 

23572 

543125 

(carriage 

return) 

23573 

601241 

(carriage 

return) 

23574 

760001 

607213 

23575 

127123 

(rubout) 

FROM - 

(new  command) 

FROM  TELETYPE  TO 

CORE 

23571 

172356 

547521 

23572 

543125 

(rubout) 

23574 

760001 

607213 

23575 

127123 

(rubout) 

FROM - 

(new  command) 

When  a  copy  from  paper  tape  to  any  device  other  than 
core  is  specified,  the  next  alphanumeric  record  (Section  3.4.2) 
is  read,  and  all  binary  records  which  are  encountered  before  it 
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are  ignored.  (However,  if  the  alphanumeric  record  is  too  long 
for  the  display,  and  a  copy  from  paper  tape  to  display  is  speci¬ 
fied,  only  part  of  the  alphanumeric  record  is  read.  The  next 
part  of  the  record  may  be  displayed  by  another  copy  from  paper 
tape  to  display.)  Similarly,  whenever  a  copy  from  paper  tape 
to  core  is  specified,  the  next  binary  record  is  read,  and  all 
alphanumeric  records  which  are  encountered  before  it  are  ignored. 

When  a  copy  from  core  to  any  device  is  specified,  the 
specification  of  a  block  of  core  locations  is  requested  from 
the  operator.  For  example,  the  operator  may  dump  locations 
23571g  through  23602g  on  the  teletype  as  follows: 

FROM  CORE  TO  TELETYPE 

BLOCK  (23571,  23602) 

23571  172356  543125  601241  760001  127123  127124  000200  000001 
23601  000236  777777 

A  copy  from  core  to  core  will  also  request  the  address  of  the 
first  location  in  the  block  into  which  the  information  is  to  be 
moved.  For  example,  locations  20052g  through  20056g  may  be 
moved  into  locations  21521g  through  21525g  by  the  following 
command : 

FROM  CORE  TO  CORE 

BLOCK  (20052,  20056)  TO  21521 

Since  the  words  in  a  block  to  be  moved  by  a  copy  from  core  to 
core  are  moved  one  at  a  time,  starting  with  the  lowest  address 
of  the  specified  block,  the  following  sequence  of  commands  may 
be  used  to  store  zeros  in  all  of  core  bank  1.  (This  is  some¬ 
times  a  useful  operation  to  perform  before  loading  a  program 
to  be  debugged,  since  it  stores  illegal  instructions  througout 
core  bank  1.) 

FROM  TELETYPE  TO  CORE 

20000  172132  000000 

20001  172312  (rubout) 
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FROM  CORE  TO  CORE 

BLOCK  (20000,  37776)  TO  20001 

The  copy  from  core  to  core  in  this  example  moves  the  zero  from 
location  20000g  into  location  20001g,  then  it  moves  the  zero 
from  location  20001g  into  location  20002g,  etc. 

Copy  functions  to  the  display  are  constrained  to  a 
maximum  of  64  characters  per  line  and  to  10  lines.  For  this 
reason,  a  maximum  of  100g  locations  may  be  dumped  on  the  screen 
at  one  time,  ard  a  copy  from  paper  tape  or  teletype  to  display 
will  be  terminated  zc  the  end  of  10  lines. 

4 . 2  Scheduling  of  User  Tasks 

User  tasks  may  be  scheduled  while  in  system  state, 
but  they  will  not  be  executed  until  user  state  is  entered  (Sec¬ 
tion  4.5).  The  command  which  accomplishes  this  is  the  following 

SCHEDULE 

In  the  blanks  after  the  word  "schedule"  the  operator  should  type 
a  5-digit  octal  address  where  the  task  which  he  is  scheduling 
begins.  For  example,  a  user  task  which  starts  at  location 
20571g  may  be  scheduled  by  the  following  command: 

SCHEDULE  20571 

4 . 3  Clearing  the  Task  Queue  or  Display  Storage 

The  command 

CLEAR  (  TASK  QUEUE 

DISPLAY  STORAGE 

allows  the  operator  to  remove  all  user  tasks  scheduled  by  the 
command  described  in  Section  4.2  from  the  task  queue,  or  to 
clear  the  display  storage  area.  When  a  copy  function  to  the 
display  is  performed,  the  comment 


NOT  ENOUGH  DISPLAY  STORAGE 
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may  be  printed  on  the  teletype,  and  the  copy  function  will  not 
be  completed.  The  facility  of  clearing  the  display  storage 
area  is  provided  to  allow  the  operator  to  destroy  all  display 
structures  to  provide  display  storage  for  copy  functions  to 
the  display. 

4 . 4  Teletype  tc  Dataphone  Transmission 

Since  most  messages  to  be  sent  over  the  201A  data¬ 
phone  to  a  remote  computer  from  the  teletype  are  record-oriented, 
rather  than  character-oriented,  and  since  ASCII  codes  are  ac¬ 
cepted  as  standards  for  this  type  of  communication,  a  copy  from 
the  teletype  to  the  dataphone  is  handled  in  a  different  manner 
from  other  copy  functions.  If  the  command  "#"  is  typed,  all 
succeeding  characters  typed  on  the  keyboard,  up  to  the  first 
carriage  return,  are  sent  over  the  dataphone  as  one  record  of 
ASCII  characters.  (Of  course,  any  response  to  such  a  record 
which  does  not  begin  with  the  8-bit  character  000g  will  be  typed 
by  the  201-to-teleprinter  task.)  However,  a  rubout  will  delete 
a  partially  typed  line,  and  the  character  will  delete  the 
previous  character  on  the  line, if  it  exists.  This  command  is 
terminated  when  the  line  is  terminated  or  deleted.  A  record 
consisting  of  an  enquiry  (used  as  an  end-of-record  character) 
may  be  sent  from  the  teletype  by  striking  the  "WRU"  key  when 
the  idle-time  task  is  expecting  a  new  command. 

4 . 5  Entering  User  State 

The  command 

RUN 

causes  all  user  tasks  which  have  been  scheduled  by  the  command 
described  in  Section  4.2  to  become  eligible  for  execution,  and 
the  idle-time  task  to  be  terminated.  This  causes  the  System 
to  enter  user  state  (Section  2.3). 


5.  SYSTEM  CAPABILITY 


The  System  was  designed  primarily  to  support  user 
tasks  which  provide  communication  between  the  operator  and  the 
339  via  network  diagrams  and  between  the  339  and  a  large  time¬ 
sharing  system.  As  can  be  determined  by  examination  of  the  dis¬ 
play  structure,  the  display  support  provided  by  the  System  is 
easily  applied  to  almost  any  display-oriented  task  which  is  two- 
dimensional  in  nature  (e.g.,  network  diagrams,  two-dimensional 
Sketchpad  programs,  line-oriented  text  editing,  etc.).  The 
System  offers  no  support  for  tasks  which  involve  three-dimen¬ 
sional  projection  in  that:  (1)  floating  point  arithmetic  (which 
is  almost  essential  for  this  type  of  task)  is  not  provided,  and 
(2)  the  display  structure  has  no  provision  for  storing  the  extra 
information  required  for  three-dimensional  projection. 

Because  a  timesharing  system  is  not  always  available 
to  support  preparation  and  testing  of  remote  terminal  programs, 
the  philosophy  behind  the  design  of  the  system  was  to  consider 
the  remote  terminal  as  an  independent  unit  which  considers  the 
large  timesharing  system  to  be  an  I/O  device.  This  differs 
from  the  philosophy,  which  is  commonly  applied  to  the  design 
of  remote  terminal  software  systems,  that  the  large  timesharing 
system  must  be  available  to  support  the  remote  terminal  system 
whenever  the  remote  system  is  operating. 
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APPENDIX  A 


LISTING  OF  THE  EXECUTIVE  SYSTEM 


IOT 

HLT 


•  I 


.2 


•  3 


.4 


SORG  17732 

STITLE 

SOPDM  700000 

SOPD  740040 

SEL  EXECUTIVE  SYSTEM  LOADER 

IOT  3302 

CLEAR  ALL  FLAGS 

JMP  SYSTEM 

START  SYSTEM 

JMS  .4 

READ  FIRST  LINE  OF  3-LINE  BLOCK 

SNA 

SKIP  IF  NONBLANK  TAPE 

JMP  *-2 

BLANK  TAPE  --  TF'Y  AGAIN 

DAC  .5 

SAVE  FIRST  LINE  IMAGE 

AND  •  7 

REMOVE  DATA  BITS 

SAD  .8 

SKIP  IF  DATA  LINE 

SKP 

ORIGIN  LINE 

JMP  .2 

DATA  LINE 

JMS  .3 

FINISH  ORIGIN  WORD 

DAC  .6 

SET  LOCATION  COUNTER 

JMP  .1 

READ  NEXT  BLOCK 

JMS  .3 

FINISH  DATA  WORD 

DAC*  .6 

LOAD  DATA  WORD 

ISZ  .6 

INCREMENT  LOCATION  COUNTER 

JMP  .1 

READ  NEXT  BLOCK 

SDC  0 

JMS  .4 

READ  SECOND  LINE 

LRS  6 

SHIFT  DATA  BITS  INTO  MO 

LAC  .5 

LOAD  AC  WITH  FIRST  LINE  IMAGE 

LLS  6 

SHIFT  CONCATENATED  IMAGE  INTO  AC 

DAC  .5 

SAVE  CONCATENATED  FIRST  TWO  LINES 

JMS  *4 

READ  THIRD  LINE 

LRS  6 

SHIFT  DATA  BITS  INTO  MO 

LAC  .5 

LOAD  AC  WITH  CONCATENATED  IMAGE 

LLS  6 

SHIFT  COMPLETED  WORD  INTO  AC 

JMP*  .3 

RETURN 

SDC  0 

IOT  104 

SELECT  READER 

IOT  101 

SKIP  IF  LINE  READY 

A- 1 


a#  «i »  m 


A- 2 


JMP  *-| 

WAIT  FOR  FLAG 

I0T  112 

OVERRIDDEN  "JMP  .1-2"  WHEN  LOADED 

JHP*  .4 

RETURN 

SDC  0 

SDC  0 

SOC  300 

SDC  100 

JMP  .1 

OVERRIDES  BOOTSTRAP  LOCATION  0 

STITLE 

CONTROL  DISPATCHER 

SORG  1 

JMP 

I 

INTERRUPT  TRAP 

SORG  21 

JMP 

ET 

ILLEGAL  INSTRUCTION  TRAP 

JMP 

ES 

SYSTEM  RESTART 

SORG  100 

Q.C 

SDC 

0 

JMP 

QC 

CLEAR  QUEUE 

O.A 

SDC 

0 

JMP 

8A 

ADD  WORD  TO  BOTTOM  OF  QUEUE  (F> 

Q.I 

SDC 

0 

JMP 

01 

INSERT  WORD  ON  TOP  OF  QUEUE  ( F> 

Q.F 

SDC 

0 

JMP 

OF 

FETCH  WORD  FROM  TOP  OF  QUEUE  (F> 

T.S 

SDC 

0 

JMP 

TS 

SCHEDULE  TASK 

T.P 

SDC 

0 

JMP 

TP 

SCHEDULE  PREVIOUS  LOC  l  TERMINATE 

T.F 

SDC 

0 

JMP 

TF 

TERMINATE  CURRENT  TASK 

T.A 

SDC 

0 

JMP 

TA 

ALLOCATE  I/O  DEVICES  UNDER  MASK 

T.R 

SDC 

0 

JMP 

TR 

RELEASE  I/O  DEVICES  UNDER  MASK 

T.L 

SDC 

0 

JMP 

TL 

LOCK  REENTRABLE  SUBROUTINE 

T.U 

SDC 

0 

JMP 

TU 

UNLOCK  REENTRABLE  SUBROUTINE 

C.B6 

SDC 

0 

JMP 

CB6 

CONVERT  BINARY  TO  6-BIT  OCTAL 

C.6A 

SDC 

0 

JMP 

C6A 

CONVERT  6-BIT  TO  ASCII 

C.A6 

SDC 

0 

JMP 

CA6 

CONVERT  ASCII  TO  6-BIT 

C.CB 

SDC 

0 

JMP 

CCB 

CONVERT  DISPLAY  COORDINATE  TO  BINARY 

A- 4 


C.BC 

SDC 

0 

JMP 

CBC 

CONVERT  BINARY  TO  DISPLAY  COORDINATE 

B.FI 

SDC 

0 

JMP 

BFI 

GET  IMAGE  FROM  20!  INPUT  BUFFER  C F> 

B.FO 

SDC 

0 

JMP 

BFO 

SEND  IMAGE  TO  201  OUTPUT  BUFFER  <F> 

B.R 

SDC 

0 

JMP 

BR 

GET  IMAGE  FROM  READER  BUFFER  <F> 

B.P 

SDC 

0 

JMP 

BP 

SEND  IMAGE  TO  PUNCH  BUFFER  ( F> 

B.K 

SDC 

0 

JMP 

BK 

GET  6-BI T  CHAR  FROM  KEYBOARD  BUFFER 

B.T 

SDC 

0 

JMP 

BT 

SEND  3  PACKED  6-BIT  CHARS  TO  TP  BUF 

N.  A 

SDC 

8 

JMP 

NA 

CONVERT  ANALOG  TO  DIGITAL 

N.C 

SDC 

0 

JMP 

NC 

SET  CLOCK  INTERVAL  *  SERVICE  TASK 

N.D1 

SDC 

0 

JMP 

ND1 

SELECT  D/A  CONVERTER  #1 

N.D2 

SDC 

0 

JMP 

ND2 

SELECT  O/A  CONVER.ER  02 

N.D3 

SDC 

0 

JMP 

ND3 

SELECT  D/A  CONVERTER  03 

P.T 

SDC 

0 

JMP 

PT 

SET  PUSH  BUTTON  SERVICE  TASK 

P.E 

SDC 

0 

JMP 

PE 

ENABLE  MANUAL  OPN  OF  PUSH  BUTTONS 

P.D 

SDC 

0 

JMP 

PD 

DISABLE  MANUAL  OPN  OF  PUSH  BUTTONS 

P.R 

SDC 

0 

JMP 

PR 

READ  PUSH  BUTTONS 

P.S 

SDC 

0 

JMP 

PS 

SET  PUSH  BUTTONS 

D.E 

SDC 

0 

JMP 

DE 

ENABLE  DISPLAY  INTERRUPTS 

D.D 

SDC 

0 

JMP 

DD 

DISABLE  DISPLAY  INTERRUPTS 

D.P 

SDC 

0 

JMP 

DP 

SET  LIGHT  PEN  FLAG  SERVICE  TASK 

A- 5 


D.A 

SOC 

0 

JMP 

DA 

READ  DISPLAY  ADR  ON  LAST  INTERRUPT 

D.Y 

SDC 

0 

JMP 

DY 

READ  Y  DPY  COORD  ON  LAST  INTERRUPT 

D.X 

SDC 

0 

JMP 

DX 

READ  X  DPY  COORD  ON  LAST  INTERRUPT 

D.O 

SDC 

0 

JMP 

DO 

READ  OWNER  ON  LAST  INTERRUPT  <F> 

X.I 

<5DC 

0 

JMP 

XI 

INITIALIZE  TRACKING  AT  GIVEN  COORDS 

X.R 

SDC 

0 

JMP 

XR 

RESUME  TRACKING 

X.T 

SDC 

0 

IMP 

XT 

TERMINATE  TRACKING 

X.S 

SDC 

0 

JMP 

XS 

SKIP  IF  TRACKING  NOT  IN  PROCESS  CF> 

X.Y 

SDC 

0 

JMP 

XY 

READ  Y  TRACKING  COORDINATE 

x.x 

SDC 

0 

JMP 

XX 

READ  X  TRACKING  COORDINATE 

S.TL 

SDC 

0 

JMP 

STL 

CREATE  A  LEVEL  <F> 

S.TD 

SDC 

0 

JMP 

STD 

DESTROY  A  LEVEL  ( F) 

S.TI 

SDC 

0 

JMP 

STI 

INSERT  SUBSTRUCTURE  INTO  LEVEL  CF> 

S.TR 

SDC 

0 

JMP 

STR 

REMOVE  SUBSTRUCTURE  FROM  LEVEL  <F> 

S.LM 

SDC 

0 

JMP 

SLH 

GET  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

S.LY 

SDC 

0 

JMP 

SLY 

TRANSLATE  LEVEL  IN  Y  DIRECTION 

S.LX 

SDC 

0 

JMP 

SLX 

TRANSLATE  LEVEL  IN  X  DIRECTION 

S.LP 

SDC 

0 

JMP 

SLP 

SET  LEVEL  PARAMETERS 

S.LBE 

SDC 

0 

JMP 

SLBE 

ENABLE  BLINK  ON  LEVEL 

S.LBD 

SDC 

0 

JMP 

SLBD 

DISABLE  BLINK  ON  LEVEL 

COUNT  SCALE  AND/OR  INTENSITY 


Sr  C 

SDC 

0 

JMP 

SLC 

S.LU 

SDC 

0 

JMP 

SLU 

S.LS 

SDC 

0 

JMP 

SLS 

S.LL 

SDC 

0 

JMP 

SLL 

S.LN 

SDC 

0 

JMP 

SLN 

L.T 

SDC 

0 

JMP 

LT 

L.D 

SDC 

0 

JMP 

LD 

L.L 

SDC 

0 

JMP 

LL 

PDPI 

SDS 

204 

PDP2 

SDS 

204 

INTERRUPT  UNCONDITIONALLY  ON  LEVEL 
INTERRUPT  ON  LEVEL  IF  ON  SCREEN 
INTERRUPT  ON  LEVEL  IF  LPSI  SET 
DISABLE  INTERRUPT  ON  LEVEL 
SEND  TEXT  LIST  TO  TP  BUFFER 
GENERATE  TEXT  LEAF  (F) 

DESTROY  TEXT  LEAF 


000 


D01 


D02 


003 


A- 7 


STITLE  DISPLAY  CHARACTER  GENERATOR 

INCR 

SOC  1272 
SOC  6251 
SOC  6057 
SOC  7516 
SOC  1570 
SOC  5172 
SOC  3726 
SOC  0 
POP 
INCR 

SDC  5160 
SOC  1472 
SDC  7255 
SDC  3737 
SDC  0 
POP 
INCR 
SDC  5271 
SDC  5152 
SDC  5364 
SDC  5537 
SDC  2774 
SDC  5417 
SDC  3020 
SDC  0 
POP 
INCR 

SDC  1252 
SDC  5760 
SDC  5152 
SDC  5354 
SDC  1051 
SDC  5253 
SDC  6455 
SDC  3737 
SDC  1000 
POP 


D04  I  NCR 

SDC  1110 
SDC  5072 
SDC  7275 
SDC  6010 
SDC  5037 
SDC  1600 
POP 

D0S  I  NCR 

SDC  1252 
SDC  5760 
SDC  5162 
SDC  5374 
SDC  6270 
SDC  5037 
SDC  3616 
SDC  0 
POP 

D06  1NCR 

SDC  1252 
SDC  5760 
SDC  5152 
SDC  5364 
SDC  5572 
SDC  5170 
SDC  3736 
SDC  1600 
POP 

D07  I  NCR 

SDC  5271 
SDC  5162 
SDC  7454 
SDC  5637 
SDC  3710 
SDC  0 
POP 

D10  I NCR 

SDC  1252 
SDC  5760 
SDC  5152 
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SDC  5364 
SDC  5512 
SDC  6251 
SDC  6057 
SDC  5637 
SDC  2600 
POP 

Dll  INCR 

SDC  5270 
SDC  5162 
SDC  7453 
SDC  5251 
SDC  6057 
SDC  5637 
SDC  2600 
POP 

D12  INCR 

SDC  7272 
SDC  5160 
SDC  5766 
SDC  7632 
SDC  7437 
SDC  1720 
SDC  0 
POP 

D13  INCR 

SDC  7272 
SDC  52  70 
SDC  5756 
SDC  5564 
SDC  2057 
SDC  5655 
SDC  6430 
SDC  1720 
SDC  0 
POP 

D14  INCR 

SDC  1272 
SDC  6251 
SDC  6057 
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D15 


01 6 


D17 


D20 


SDC  3656 
SDC  5564 
SDC  3020 
SDC  1700 
POP 
I  NCR 

SDC  7272 
SDC  SL60 
SDC  6766 
SDC  6554 
SDC  3020 
SDC  1700 
POP 
I  NCR 

SDC  7272 
SDC  5270 
SDC  5025 
SDC  5550 
SDC  2516 
SDC  7050 
SDC  1720 
SDC  0 
POP 
I  NCR 

SDC  7272 
SDC  5270 
SDC  5025 
SDC  5550 
SDC  3717 
SDC  1000 
POP 
INCR 

SDC  1272 
SDC  6251 
SDC  6057 
SDC  3570 
SDC  5655 
SDC  6430 
SDC  1720 
SDC  0 


i 
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POP 

D2 1  I  NCR 

SDC  7272 
SDC  5236 
SDC  7050 
SDC  7236 
SDC  7620 
SDC  1700 
POP 

022  INCR 

SDC  5160 
SDC  1472 
SDC  7254 
SDC  1050 
SDC  3736 
SDC  1700 
POP 

D23  INCR 

SDC  2252 
SDC  5657 
SDC  6051 
SDC  7262 
SDC  3636 
SDC  1720 
SDC  0 
POP 

D24  INCR 

SDC  72  72 
SDC  5230 
SDC  5075 
SDC  7720 
SDC  1700 
POP 

D25  INCR 

SDC  7272 
SDC  5236 
SDC  3670 
SDC  5020 
SDC  1700 
POP 
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D26 


D27 


030 


D31 


032 


I  NCR 

SDC  7272 
SDC  5267 
SDC  6176 
SDC  7620 
SDC  1700 
POP 
I  NCR 

SDC  7272 
SDC  5277 
SDC  3250 
SDC  7676 
SDC  1720 
SDC  0 
POP 
INCR 

SDC  1272 
SDC  6251 
SDC  6057 
SDC  7656 
SDC  5564 
SDC  3020 
SDC  1700 
POP 
INCR 

SDC  7272 
SDC  5270 
SDC  5756 
SDC  5564 
SDC  3720 
SDC  1700 
POP 
INCR 

SDC  1272 
SDC  6251 
SDC  6057 
SDC  7656 
SDC  5564 
SDC  1022 
SDC  7720 
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SDC  0 
POP 

D33  I  NCR 

SDC  7272 
SDC  5270 
SDC  5756 
SDC  5564 
SDC  7720 
SDC  1700 
POP 

D34  INCR 

SDC  1252 
SDC  5760 
SDC  5152 
SDC  5364 
SDC  5352 
SDC  5160 
SDC  5737 
SDC  3600 
POP 

D35  INCR 

SDC  1150 
SDC  7272 
SDC  6420 
SDC  6036 
SDC  1637 
SDC  0 
POP 

D36  INCR 

SDC  1272 
SDC  7230 
SDC  5076 
SDC  6655 
SDC  6430 
SDC  1720 
SDC  0 
POP 

D37  INCR 

SDC  2272 
SDC  6230 
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SDC  5076 
SOC  5665 
SDC  5327 
SDC  3010 
SDC  0 
POP 

D40  I NCR 

SDC  7272 
SDC  5230 
SDC  5076 
SDC  7663 
SDC  5527 
SDC  3010 
SDC  0 
POP 

D41  I NCR 

SDC  6271 
SDC  5152 
SDC  3454 
SDC  5657 
SDC  1767 
SDC  5617 
SDC  2000 
POP 

D42  I NCR 

SDC  1150 
SDC  7261 
SDC  5234 
SDC  5456 
SDC  5737 
SDC  2710 
SDC  0 
POP 

D43  I NCR 

SDC  6271 
SDC  5152 
SDC  7454 
SDC  3727 
SDC  5574 
SDC  3020 
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SDC  1700 
POP 

044  I NCR 

SDC  1251 
SDC  7151 
SDC  3454 
SDC  5717 
SDC  6727 
SDC  0 
POP 

D45  INCR 

SDC  1252 
SDC  7151 
SDC  3736 
SDC  0 
POP 

D46  INCR 

SDC  1151 
SDC  7252 
SDC  1555 
SDC  5010 
SDC  6037 
SDC  1600 
POP 

D47  INCR 

SDC  3252 
SDC  7050 
SDC  3716 
SDC  0 
POP 

D50  INCR 

SDC  1150 
SDC  5372 
SDC  5251 
SDC  3727 
SDC  2600 
POP 

D51  INCR 

SDC  1150 
SDC  5172 


SDC  5253 
SDC  3727 
SDC  2600 
POP 

D52  I NCR 

SDC  5172 
SDC  7260 
SDC  3636 
SDC  5450 
SDC  1730 
SDC  0 
POP 

D53  I NCR 

SDC  5160 
SDC  7272 
SDC  6437 
SDC  3716 
SDC  0 
POP 

DS4  I NCR 

SDC  3051 
SDC  7371 
SDC  3736 
SDC  1600 
POP 

D55  I NCR 

SDC  3150 
SDC  7454 
SDC  1252 
SDC  7050 
SDC  3726 
SDC  0 
POP 

D56  I NCR 

SDC  S2  71 
SDC  7337 
SDC  3717 
SDC  0 
POP 

D57  INCR 
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5 DC  1150 
SDC  7272 
SDC  6520 
SDC  5157 
SDC  3726 
SDC  0 
POP 

D60  I NCR 

SDC  1151 
SDC  6361 
SDC  1655 
SDC  7037 
SDC  1600 
POP 

D61  I NCR 

SDC  6250 
SDC  5630 
SDC  1720 
SDC  0 
POP 

D62  I NCR 

SDC  6250 
SDC  6655 
SDC  1130 
SDC  3000 
POP 

D63  I NCR 

SDC  1262 
SDC  1262 
SDC  5056 
SDC  1666 
SDC  2710 
SDC  3000 
POP 

D64  I  NCR 

SDC  1262 
SDC  1262 
SDC  5056 
SDC  1676 
SDC  5530 
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SDC  3010 
SDC  0 
POP 

D65  I NCR 

SDC  1150 
SDC  1268 
SDC  5051 
SDC  5253 
SDC  6455 
SDC  3737 
SDC  1000 
POP 

D66  I NCR 

SDC  1150 
SDC  1272 
SDC  6237 
SDC  2726 
SDC  0 
POP 

D67  INCR 

SDC  2122 
SDC  7237 
SDC  2726 
SDC  0 
POP 

D70  INCR 

SDC  1132 
SDC  7210 
SDC  5066 
SDC  3717 
SDC  1600 
POP 

D71  INCR 

SDC  1252 
SDC  5760 
SDC  5152 
SDC  5364 
SDC  5352 
SDC  5160 
SDC  5714 
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SDC  5456 
SOC  1666 
SDC  2730 
SDC  0 
POP 

D72  I NCR 

SDC  5172 
SDC  7210 
SDC  5076 
SDC  7612 
SDC  5314 
SDC  5412 
SDC  5210 
SDC  5010 
SDC  5016 
SDC  5637 
SDC  0 
POP 

D73  I NCR 

SDC  5153 
SDC  5261 
SDC  5355 
SDC  1777 
SDC  1454 
SDC  1151 
SDC  3700 
POP 

375  VEC 

SDC  2020 
SDC  4000 
POP 

D76  SVEC 

SDC  50 
POP 
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STITLE  TRACKING  PATTERN  GENERATOR 

XP  LAW  3000 

SDC  1105 

XPY  SOC  1000 

XPX  SDC  5000 

SDC  1400 
SDC  XI 
SDC  60 
SVEC 
SDC  24 
SDC  4047 
SDC  1400 
SDC  X2 
SDC  60 
SVEC 
SDC  1 
SDC  4067 
SDC  1400 
SDC  X3 
SDC  60 
SVEC 

SDC  2403 
SDC  4740 
SDC  1400 
SDC  X2 
SDC  60 
SVEC 
SDC  100 
SDC  6700 
SDC  340 
SDC  1400 
SDC  X4 

XPS  POP 
SVEC 
SDC  404 
SDC  4030 
SDC  7000 
SDC  4010 
SDC  5040 
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VEC 
SDC  4 
SDC  A 
SDC  4000 
SDC  2020 
SDC  6020 
SDC  0 
SDC  4000 
SDC  20 
SDC  4020 
SDC  0 
SDC  4 
SDC  4 
SDC  4000 
SDC  2030 
SDC  6030 
SDC  0 
SDC  4000 
SDC  30 
SDC  4030 
SDC  0 
SDC  4 
SDC  4 
SDC  4000 
SDC  2040 
SDC  6040 
SDC  0 
SDC  4000 
SDC  40 
SDC  4040 
SDC  0 
SDC  4 
SDC  4 
SDC  4000 
SDC  2050 
SDC  6050 
SDC  0 
SDC  4000 
SDC  50 
SDC  4050 
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SDC 

0 

SDC 

4 

SDC 

A 

SDC 

4000 

SDC 

2060 

SDC 

6060 

SDC 

0 

SDC 

4000 

SDC 

60 

SDC 

4060 

SDC 

0 

SDC 

4 

SDC 

4 

SDC 

4000 

SDC 

2070 

SDC 

6070 

SDC 

0 

SDC 

4000 

SDC 

70 

SDC 

4070 

SDC 

0 

SDC 

4 

SDC 

/ 

SDC 

4000 

SDC 

2100 

SDC 

6100 

SDC 

0 

SDC 

4000 

SDC 

100 

SDC 

4100 

SDC 

4000 

SDC 

1400 

SDC 

POP 

X5 

t 
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STITLE 

INTERRUPT  DISPATCHER 

DAC 

6 

SAVE  AC  CONTENTS 

LACO 

GET  MO  CONTENTS 

DAC 

3 

SAVE  MO  CONTENTS 

LACS 

GET  SC  CONTENTS 

DAC 

2 

SAVE  SC  CONTENTS 

IOT 

1441 

SKIP  ON  DATAPHONE  RECEIVE  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

I  FI 

SERVICE  DATAPHONE  INPUT  INTERRUPT 

IOT 

1401 

SKIP  ON  DATAPHONE  TRANSMIT  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

IFO 

SERVICE  DATAPHONE  OUTPUT  INTERRUPT 

IOT 

101 

SKIP  ON  READER  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

I  RD 

SERVICE  READER  INTERRUPT 

IOT 

1301 

SKIP  ON  A/D  CONVERTER  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

I  AD 

SERVICE  A/D  CONVERTER  INTERRUPT 

IOT 

301 

SKIP  ON  KEYBOARD  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

IKB 

SERVICE  KEYBOARD  INTERRUPT 

IOT 

201 

SKIP  ON  PUNCH  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

I  PC 

SERVICE  PUNCH  INTERRUPT 

IOT 

401 

SKIP  ON  TELEPRINTER  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

I  TP 

SERVICE  TELEPRINTER  INTERRUPT 

IOT 

1 

SKIP  ON  CLOCK  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

ICK 

SERVICE  CLOCK  INTERRUPT 

IOT 

612 

READ  DISPLAY  STATUS 

DAC 

DSS 

SAVE  DISPLAY  STATUS  WORD  1 

AND 

*20 

GET  PUSH  BUTTON  FLAG 

SZA 

SKIP  ON  NO  PUSH  BUTTON  FLAG 

JMP 

IPB 

SERVICE  PUSH  BUTTON  INTERRUPT 

IOT 

702 

SKIP  ON  EDGE  FLAG 

JMP 

♦  ♦3 

TEST  NEXT  FLAG 

IOT 

724 

RESUME  DISPLAY 

JMP 

IR 

RETURN  FROM  INTERRUPT 

A- 2  4 


IR 


IOT 

642 

SKIP  ON  LIGHT  PEN  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

ILP 

SERVICE  LIGHT  PEN  INTERRUPT 

IOT 

721 

SKIP  ON  INTERNAL  STOP  FLAG 

SKP 

TEST  NEXT  FLAG 

JMP 

IIS 

SERVICE  INTERNAL  STOP  INTERRUPT 

IOT 

722 

SKIP  ON  MANUAL  INTERRUPT  FLAG 

JMP 

El 

INVALID  INTERRUPT 

JMP 

EM 

EMERGENCY  REINITIALIZATION 

LAC 

2 

GET  SC  CONTENTS 

XOR 

*77 

COMPLEMENT  SHIFT  COUNT 

TAD 

*640402 

FORM  NORM  INSTRUCTION 

AND 

*640477 

TRUNCATE  CARRY 

DAC 

*♦1 

STORE  NORM  INSTRUCTION 

HLT 

RESTORE  SC  CONTENTS 

LAC 

3 

GET  MO  CONTENTS 

LMO 

RESTORE  MO  CONTENTS 

LAC 

6 

RESTORE  AC  CONTENTS 

IOT 

42 

ENABLE  INTERRUPTS 

IOT 

3344 

DEBREAK  AND  RESTORE 

JMP* 

0 

RETURN  TO  INTERRUPTED  PROGRAM 

A-25 


SYSTEM 


EE 


El 


EM 


EQ 


STITLE 

SYSTEM  DIAGNOSTICS 

LAW  4400 

GET  BREAK  FIELD  1  PARAMETER 

IOT  705 

LOAD  BREAK  FIELD 

LAW  s  ]  400 

GET  ADDRESS  OF  INTERNAL  STOP 

IOT  1605 

INITIALIZE  DISPLAY 

LAC  ***2 

GET  ADDRESS  OF  TEXT  LIST 

JMP  E 

INITIALIZE  SYSTEM 

SDC  5 

JTEXT  ” SYSTEM 

RELOADED" 

IOT  42 

ENABLE  INTERRUPTS 

LAC  BP3 

GET  PUNCH  STATUS  SWITCH 

SZA 

SKIP  IF  PUNCH  IS  IDLE 

JMP  *-2 

WAIT  FOR  PUNCH  TO  FINISH 

LAC  8T1 

GET  TELEPRINTER  STATUS  SWITCH 

SZA 

SKIP  IF  TELEPRINTER  IS  IDLE 

JMP  *- 2 

WAIT  FOR  TELEPRINTER  TO  FINISH 

IOT  1412 

READ  201  STATUS 

AND  *2 

GET  TRANSMIT  STATE  BIT 

SZA 

SKIP  IF  NOT  TRANSMITTING 

JMP  *- 3 

WAIT  FOR  END  OF  TRANSMISSION 

IOT  2 

DISABLE  INTERRUPTS 

LAC  a**2 

GET  ADDRESS  OF  TEXT  LIST 

JMP  E 

REINITIALIZE  SYSTEM 

SDC  6 

STEXT  "TASK  QUEUE  EMPTY” 

LAC  »**2 

GET  ADDRESS  OF  TEXT  LIST 

JMP  E 

REINITIALIZE  SYSTEM 

SDC  6 

STEXT  "INVALID 

INTERRUPT" 

LAC  a**2 

GET  ADDRESS  OF  TEXT  LIST 

JMP  E 

REINITIALIZE  SYSTEM 

SDC  6 

STEXT  "MANUAL 

INTERRUPT’ 

LAC  a**2 

GET  ADDRESS  OF  TEXT  LIST 

JMP  E 

REINITIALIZE  SYSTEM 

A-26 


SDC  7 

STEXT  "TASK  QUEUE  OVERFLOW" 


ES 


DZM  BP3 
DZM  BT! 

LAW  4400 
IOT  705 
LAW  *  I  400 
IOT  1605 
LAC  •♦♦B 
JMP  E 
SDC  5 

STEXT  "PANEL  RECOVERY 


CLEAR  PUNCH  STATUS  SWITCH 
CLEAR  TELEPRINTER  STATUS  SWITCH 
GET  BREAK  FIELD  I  PARAMETER 
LOAD  BREAK  FIELD 
GET  ADDRESS  OF  INTERNAL  STOP 
INITIALIZE  DISPLAY 
GET  ADDRESS  OF  TEXT  LIST 
REINITIALIZE  SYSTEM 


II 


ET 


ET1 

ET2 


IOT  2 
CLC 

TAD  20 
JMS  C.B6 
AND  *7777 
TAD  *760000 
DAC  ETI 
LACQ 
DAC  ET2 
LAC  m*  +  2 
JMP  E 
SDC  13 

STEXT  "ILLEGAL 
SDC  0 
SDC  0 


DISABLE  INTERRUPTS 
LOAD  AC  WITH  -  I 

ADD  PROGRAM  COUNTER  DURING  TRAP 

CONVERT  TO  6- BIT  CODE 

TRUNCATE  HIGH  ORDER  DIGIT 

USE  BLANK  AS  HIGH  ORDER  CHARACTER 

STORE  HIGH  ORDER  CHARACTERS 

GET  LOW  ORDER  DIGITS 

STORE  LOW  ORDER  DIGITS 

GET  ADDRESS  OF  TEXT  LIST 

REINITIALIZE  SYSTEM 

INSTRUCTION  AT  LOC" 


A- 2  7 


STITLE 

SYSTEM  INITIALIZER 

OAC 

25 

SAVE  ADDRESS  OF  DIAGNOSTIC 

IOT 

7702 

ENTER  EXTEND  MODE 

IOT 

1412 

READ  201  STATUS 

AND 

*1 

GET  RECEIVE  STATE  BIT 

SZA 

SKIP  IF  NOT  RECEIVING 

JMP 

♦  -3 

WAIT  FOR  END  OF  RECORD 

IOT 

1444 

CLEAR  201  INTERFACE 

LAC 

a  440 

GET  TERM  RDY  BIT  6  FRAME  SIZE  8 

IOT 

1404 

SET  INITIAL  201  INTERFACE  STATE 

LAC 

BP3 

GET  PUNCH  STATUS  SWITCH 

SNA 

SKIP  IF  PUNCH  ACTIVE 

JMP 

♦  ♦3 

PUNCH  NOT  ACTIVE 

IOT 

201 

SKIP  ON  PUNCH  FLAG 

JMP 

*- 1 

WAIT  FOR  PUNCH  FLAG 

LAC 

BT1 

GET  TELEPRINTER  STATUS  SWITCH 

SNA 

SKIP  IF  TELEPRINTER  ACTIVE 

JMP 

*♦3 

TELEPRINTER  NOT  ACTIVE 

IOT 

401 

SKIP  ON  TELEPRINTER  FLAG 

JMP 

*-l 

WAIT  FOR  TELEPRINTER  FLAG 

IOT 

612 

READ  DISPLAY  STATUS 

AND 

a  7400 

GET  DISPLAY  FLAG  BITS 

SNA+CLA 

SKIP  IF  DISPLAY  STOPPED 

JMP 

♦  -3 

WAIT  FOR  DISPLAY  TO  STOP 

JMS 

PS1 

CLEAR  PUSH  BUTTONS 

IOT 

4 

DISABLE  CLOCK 

IOT 

3302 

CLEAR  ALL  FLAGS 

DZM 

BP3 

INDICATE  PUNCH  IDLE 

DZM 

BT1 

INDICATE  TELEPRINTER  IDLE 

DZM 

PE*  1 

DISABLE  OPERATION  OF  PUSH  BUTTONS 

DZM 

DE*1 

DISABLE  DISPLAY  INTERRUPTS 

DZM 

DWV 

CLEAR  TRANSLATION  VALUE 

DZM 

NA*2 

UNLOCK  N.A 

DZM 

NC*2 

UNLOCK  N • C 

DZM 

STRD+2 

UNLOCK  S.TRD 

DZM 

STRR+2 

UNLOCK  S.TRR 

DZM 

SLY*  2 

UNLOCK  S.LY 

DZM 

SLX*2 

UNLOCK  S.LX 

LAW 

10 

GET  TELEPRINTER  MASK 

DAC  STATUS 
DAC  BFTTY2 
LAC  TO 
OAC  TQ*1 
DAC  TQ*2 
DAC  BRS 
DZM  BRO 
LAC  BPO 
DAC  BPO* 1 
DAC  BPQ+2 
LAC  BKO 
DAC  BKO* 1 
DAC  BKQ*2 
LAC  BTO 
DAC  BTO* 1 
DAC  BTO+2 
LAC  *DN 
DAC  DPT 
LAC  «PN 
DAC  PTT 
LAW  3000 
DAC  XP 
LAC  «D 
DAC  DHAL*  7 
LAW  PDP1 
IOT  645 
LAW  7763 
IOT  665 
LAW  4400 
IOT  705 
LAW  D 
IOT  1605 
LAC  aBFENQ 
JMS  BFENQS 
IOT  42 
LAW  BFENO 
JMS  B.FO 
NOP 

DZM  26 
DZM  27 


ALLOCATE  TELEPRINTER  ONLY 

SET  BFTTY  ALLOCATION  MASK 

GET  POINTER  TO  END  OF  TASK  QUEUE 

RESET  INPUT  POINTER 

RESET  OUTPUT  POINTER 

SET  RECORD  SEEK  SWITCH 

INDICATE  NEW  RECORD  NEEDED 

GET  POINTER  TO  END  OF  PUNCH  BUFFER 

RESET  INPUT  POINTER 

RESET  OUTPUT  POINTER 

GET  POINTER  TO  END  OF  KB  BUFFER 

RESET  INPUT  POINTER 

RESET  OUTPUT  POINTER 

GET  POINTER  TO  END  OF  TP  BUFFER 

RESET  INPUT  POINTER 

RESET  OUTPUT  POINTER 

GET  ADDRESS  OF  NULL  DISPLAY  SERVICE 

SET  NULL  LIGHT  PEN  SERVICE 

GET  ADDRESS  OF  NULL  PB  SERVICE 

SET  NULL  PUSH  BUTTON  SERVICE 

GET  POP  INSTRUCTION 

INHIBIT  TRACKING  PROCESS 

GET  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

REMOVE  EVERYTHING  FROM  HAL 

GET  ADDRESS  OF  PUSH  DOWN  LIST 

SET  PUSH  DOWN  POINTER 

GET  INITIAL  DISPLAY  CONDITIONS 

SET  INITIAL  DISPLAY  CONDITIONS 

GET  BREAK  FIELD  1  PARAMETER 

LOAD  BREAK  FIELD 

GET  ADDRESS  OF  SYSTEM  DISPLAY  FILE 

START  DISPLAY 

GET  ENQUIRY  CHARACTER 

INITIALIZE  201  TASKS 

ENABLE  INTERRUPTS 

GET  ENQUIRY  CHARACTER 

SEND  ATTENTION  INTERRUPT 

DATA  SET  NOT  CONNECTED 

CLEAR  POINTER  TO  DIAGNOSTIC  LEVEL 

CLEAR  POINTER  TO  DIASYOSTIC  LEAF 
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JMS 

S.TL 

CREATE  TITLE  LEAF 

JMP 

E2 

USE  TELETYPE  ONLY 

DAC 

E3 

SAVE  POINTER  TO  TITLE  LEAF 

LAC 

*EF 

GET  ADDRESS  OF  TEXT  LIST 

JMS 

L.D 

CREATE  TITLE  LEAF 

JMP 

E2 

USE  TELETYPE  ONLY 

LMQ 

SET  UP  PARAMETER 

LAC 

E3 

GET  POINTER  TO  TITLE  LEVEL 

JMS 

S.TI 

INSERT  TITLE  LEAF 

JMP 

E2 

USE  TELETYPE  ONLY 

LAC 

=  370 

GET  Y  TITLE  COORDINATE 

LMQ 

SET  UP  PARAMETER 

LAC 

E3 

GET  POINTER  TO  TITLE  LEVEL 

JMS 

S.LY 

SET  Y  TITLE  COORDINATE 

LAW 

-  144 

GET  X  TITLE  COORDINATE 

LMO 

SET  UP  PARAMETER 

LAC 

E3 

GET  POINTER  TO  TITLE  LEVEL 

JMS 

S.LX 

SET  X  TITLE  COORDINATE 

LAW 

500 

GET  SCALE  X2  PARAMETER 

LMO 

SET  UP  PARAMETER 

LAC 

E3 

GET  POINTER  TO  TITLE  LEVEL 

JMS 

S.LP 

SET  TITLE  SCALE 

LAC 

E3 

GET  POINTER  TO  TITLE  LEVEL 

LMO 

SET  UP  PARAMETER 

LAC 

*DHAL 

GET  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

JMS 

S.TI 

INSERT  TITLE  LEVEL 

JMP 

E2 

USE  TELETYPE  ONLY 

JMS 

S.TL 

CREATE  DIAGNOSTIC  LEVEL 

JMP 

E2 

USE  TELETYPE  ONLY 

DAC 

26 

SET  POINTER  TO  DIAGNOSTIC  LEVEL 

LAC 

=200 

GET  Y  DIAGNOSTIC  DISPLACEMENT 

LMQ 

SET  UP  PARAMETER 

LAC 

26 

GET  ADDRESS  OF  DIAGNOSTIC  LEVEL 

JMS 

S.LY 

TRANSLATE  LEVEL  IN  Y  DIRECTION 

LAW 

-4C0 

GET  X  DIAGNOSTIC  DISPLACEMENT 

LMO 

SET  UP  PARAMETER 

LAC 

26 

GET  ADDRESS  OF  DIAGNOSTIC  LEVEL 

JMS 

S.LX 

TRANSLATE  LEVEL  IN  X  DIRECTION 

LAW 

500 

GET  SCALE  X2  PARAMETER 

LMO 

SET  UP  PARAMETER 

A- 30 


LAC  26 
JMS  S.LP 
LAC  26 
LMQ 

LAC  *DHAL 
JMS  S.TI 
JMP  E2 
LAC  25 
SZA 

JMS  L.D 
JMP  E2 
DAC  27 
LMQ 
LAC  26 
JMS  S.TI 
NOP 

E2  LAC  25 
SNA 

JMP  IDLE 
LAC  *747575 
JMS  B.T 
LAC  25 
JMS  L.T 
LAC  *747575 
JMS  B.T 
JMP  IDLE 


GET  ADDRESS  OF  DIAGNOSTIC  LEVEL 
SET  DIAGNOSTIC  SCALE 
GET  ADDRESS  OF  DIAGNOSTIC  LEVEL 
SET  UP  PARAMETER 

GET  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

INSERT  DIAGNOSTIC  LEVEL 

DISPLAY  STORAGE  EXCEEDED 

GET  ADDRESS  OF  TEXT  LIST 

SKIP  IF  DISP  STORAGE  BEING  CLEARED 

CREATE  DIAGNOSTIC  LEAF 

USE  TELETYPE  ONLY 

SET  POINTER  TO  DIAGMOSTIC  LEAF 

SET  UP  PARAMETER 

GET  ADDRESS  OF  DIAGNOSTIC  LEVEL 

INSERT  DIAGNOSTIC  LEAF 

USE  TELETYPE  ONLY 

GET  POINTER  TO  TEXT  LIST 

SKIP  IF  COMMENT  TO  BE  TYPED 

BEGIN  IDLE- TIME  TASK 

GET  TELEPRINTER  POSITIONING  CODE 

POSITION  TELEPRINTER 

GET  ADDRESS  OF  TEXT  LIST 

TYPE  DIAGNOSTIC 

GET  TELEPRINTER  POSITIONING  CODE 
POSITION  TELEPRINTER 
BEGIN  IDLE- TIME  TASK 


EF  SDC  1  1 

STEXT  MSEL  EXECUTIVE  SYSTEM  (01)" 
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STORE 

B 

01 


B2 


B3 


B4 


STITLE  DISPLAY  STRUCTURE  STORAGE  MANAGER 

SEQU  12000  LOWER  LIMIT  OF  DISPLAY  STORAGE 


SDC  0 
CMA 
TAD  *1 
DAC  T1 
DAC  T2 
LAC  aSTORE 
DAC  T3 
DAC  T4 
SAD  =20000 
JMP*  B 
LAC*  T A 
SNA 

JMP  B2 
LAC  T2 
DAC  T1 
LAC  T A 
TAD  *4 
JMP  B  1 
ISZ  T1 
JMP  **4 
LAC  T3 
ISZ  B 
JMP*  B 
LAC  T4 
TAD  =4 
JMP  B 1 ♦ 1 


FORM  1  'S  COMP  OF  NUMBER  OF  BLOCKS 

FORM  2  *S  COMP  OF  NUMBER  OF  BLOCKS 

INITIALIZE  COUNTER 

STORE  VALUE  FOR  RESETTING  COUNTER 

GET  LOWER  LIMIT  OF  DISPLAY  STORAGE 

SET  POINTER  TO  CANDIDATE 

SET  POINTER  TO  NEW  BLOCK 

SKIP  IF  STORAGE  NOT  EXCEEDED 

NOT  ENOUGH  FREE  STORAGE 

GET  FIRST  WORD  FROM  BLOCK 

SKIP  IF  BLOCK  NOT  AVAILABLE 

ADD  BLOCK  TO  CANDIDATE 

GET  INITIAL  VALUE  OF  COUNTER 

REINITIALIZE  COUNTER 

GET  ADDRESS  OF  UNAVAILABLE  BLOCK 

FORM  ADDRESS  OF  NEXT  BLOCK 

PROCEED  WITH  NEXT  CANDIDATE 

INCREMENT  COUNTER  *  SKIP  IF  DONE 

PREPARE  TO  ADD  ANOTHER  BLOCK 

GET  ADDRESS  OF  ACQUIRED  STORAGE 

INDICATE  SUCCESS 

RETURN 

GET  ADDRESS  OF  BLOCK  JUST  ADDED 
FORM  ADDRESS  OF  NEXT  BLOCK 
ADD  ANOTHER  BLOCK 


SDC  0 
LAC  *1 
JMS  B 
JMP*  B3 
ISZ  B3 
JMP*  B3 


GET  SINGLE  BLOCK  PARAMETER 
FIND  SINGLE  BLOCK 
NO  SINGLE  BLOCK  AVAILABLE 
INDICATE  SUCCESS 
RETURN 


SDC  0 

LAC  *2  GET  DOUBLE  BLOCK  PARAMETER 
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JMS  B  FIND  DOUBLE  BLOCK 

JMP*  84  NO  DOUBLE  BLOCK  AVAILABLE 

ISZ  B4  INDICATE  SUCCESS 

JMP*  84  RETURN 


7 

-J 
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STI  TLE 

WORD  QUEUE  MANAGER 

IOT  2 

DISABLE  INTERRUPTS 

JMS  QS 

SET  CONTROL  POINTERS 

LAC*  QP 

GET  POINTER  TO  END  OF  QUEUE 

DAC*  QIP 

SET  INPUT  POINTER 

DAC*  OOP 

SET  OUTPUT  POINTER 

IOT  42 

ENABLE  INTERRUPTS 

JMP*  O.C 

RETURN 

IOT  2 

DISABLE  INTERRUPTS 

JMS  OA 1 

ADD  WORD  TO  QUEUE 

SKP 

OVERFLOW 

ISZ  Q.A 

INDICATE  SUCCESS 

IOT  42 

ENABLE  INTERRUPTS 

JMP*  O.A 

RETURN 

IOT  2 

DISABLE  INTERRUPTS 

JMS  QS 

SET  CONTROL  POINTERS 

LAC*  OOP 

GET  OUTPUT  POINTER 

DAC  23 

SAVE  OUTPUT  POINTER 

TAD  *-3 

SUBTRACT  3 

SAD  QP 

SKIP  IF  NO  WRAP-AROUND 

LAC*  QP 

GET  POINTER  TO  END  OF  QUEUE 

SAD*  QP 

SKIP  IF  NO  WRAP-AROUND 

SKP 

CHECK  FOR  OVERFLOW 

TAD  *2 

FORM  NEW  OUTPUT  POINTER 

SAD*  QIP 

SKIP  IF  NO  OVERFLOW 

JMP  *♦ 5 

OVERFLOW 

DAC*  OOP 

SET  NEW  OUTPUT  POINTER 

LACO 

GET  VALUE  TO  BE  STORED 

nAC*  23 

STORE  VALUE  IN  QUEUE 

ISZ  Q.t 

INDICATE  SUCCESS 

IOT  42 

ENABLE  INTERRUPTS 

JMP*  Q.I 

RETURN 

IOT  2 

DISABLE  INTERRUPTS 

JMS  OF  1 

FETCH  WORD  FROM  QUEUE 

SKP 

QUEUE  EMPTY 

ISZ  Q.F 

INDICATE  SUCCESS 
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IOT  42  ENABLE  INTERRUPTS 

JMP*  Q.F  RETURN 


QA1  $DC  0 
JMS  QS 
LAC*  QIP 
JMS  QINC 
SAD*  OOP 
JMP*  QA1 
DAC*  QIP 
DAC  23 
LACO 
DAC*  23 
ISZ  QAI 
JMP*  OA1 


SET  CONTROL  POINTERS 
GET  INPUT  POINTER 
INCREMENT 

SKIP  IF  NO  OVERFLOW 
OVERFLOW 

SET  NEW  INPUT  POINTER 
SAVE  COPY  OF  POINTER 
GET  WORD  TO  BE  STORED 
STORE  WORD  IN  QUEUE 
INDICATE  SUCCESS 
RETURN 


QF1  SDC  0 
JMS  QS 
LAC*  OOP 
SAD*  QIP 
JMP*  QF1 
JMS  QINC 
DAC*  OOP 
DAC  23 
LAC*  23 
ISZ  QF1 
JMP*  QF1 


SET  CONTROL  POINTERS 
GET  OUTPUT  POINTFR 
SKIP  IF  QUEUE  NOT  EMPTY 
QUEUE  EMPTY 
INCREMENT 

SET  NEW  OUTPUT  POINTER 
SAVE  COPY  OF  POINTER 
GET  WORD  FROM  QUEUE 
INDICATE  SUCCESS 
RETURN 


QS  SDC  0 
DAC  QP 
TAD  *  1 
DAC  QIP 
TAD  «1 
DAC  OOP 
JMP*  QS 


SET  POINTER  TO  QUEUE 
COMPUTE  ADDRESS  OF  NEXT  LOCATION 
SET  POINTER  TO  INPUT  POINTER 
COMPUTE  ADDRESS  OF  NEXT  LOCATION 
SET  POINTER  TO  OUTPUT  POINTER 
RETURN 


QINC  SDC  0 

SAD*  QP 
LAC  OOP 
TAD  *1 


SKIP  IF  NOT  END  OF  QUEUE 

WRAP  AROUND  TO  BEGINNING  OF  QUEUE 

INCREMENT 
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JMP*  QlbiC 


RETURN 
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STITLE 

TASK  SCHEDULER 

TS 

IOT  2 

DISABLE  INTERRUPTS 

AND  *77777 

TRUNCATE  HIGH  ORDER  BITS 

JMS  TII 

PUT  TASK  ADDRESS  ON  QUEUE 

IOT  42 

ENABLE  INTERRUPTS 

JMP*  T.S 

RETURN 

TP 

LAW  17776 

LOAD  AC  WITH  -2  , 

TAD  T.P 

FORM  ADDRESS  OF  NEW  TASK  \ 

JMS  T.S 

SCHEDULE  NEW  TASK 

TF 

IOT  2 

DISABLE  INTERRUPTS 

JMS  TIO 

READ  WORD  FROM  TASK  QUEUE 

DAC  23 

SAVE  TASK  ADDRESS 

RAL 

SHIFT  TYPE  BITS  INTO  LINK  4  SI  GN 

SZL 

SKIP  IF  NOT  REENTRY  DELAY 

JMP  TF! 

RESTORE  MQ  4  AC  AND  EXECUTE 

SPA 

SKIP  IF  NOT  ALLOCATION  DELAY 

JMP  TF2 

CHECK  ELIGIBILITY 

IOT  42 

ENABLE  INTERRUPTS 

JMP*  23 

EXECUTE  TASK 

TF1 

JMS  TIO 

READ  WORD  FROM  TASK  QUEUE 

LMO 

RESTORE  MQ 

JMS  TIO 

READ  WORD  FROM  TASK  QUEUE 

JMP  TFI-2 

EXECUTE  TASK 

TF2 

JMS  TIO 

READ  WORD  FROM  TASK  QUEUE 

AND  STATUS 

FORM  ELIGIBILITY  CHECK 

SNA 

SKIP  IF  TASK  NOT  ELIGIBLE 

JMP  TF3 

MODIFY  STATUS  4  EXECUTE 

LAC  23 

GET  ADDRESS  OF  TASK 

JMS  TII 

PUT  BACK  ON  TASK  QUEUE 

LAC*  TO+2 

GET  ALLOCATION  MASK 

JMS  TII 

PUT  BACK  ON  TASK  QUEUE 

IOT  42 

ENABLE  INTERRUPTS 

JMP  TF 

GET  ANOTHER  TASK 

TF3 

LAC*  TO* 2 

GET  ALLOCATION  MASK 

XOR  STATUS 

OR  WITH  STATUS  WORD 

DAC  STATUS 

STORE  NEW  STATUS  WORD 

JMP  TFi-2 

EXECUTE  TASK 

I 
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TA 


TR 


TL 


TL1 


AND 

=17777 

IOT 

2 

DAC 

23 

LAC 

T.A 

AND 

=77777 

XOR 

=200000 

JMS 

TII 

LAC 

23 

JMS 

TI I 

JMP 

TF*  1 

CMA 

AND 

STATUS 

DAC 

STATUS 

JMP* 

T.R 

DAC 

Tl 

LAW 

1  7776 

TAD 

T.L 

DAC 

T2 

LAC* 

T.L 

SZA 

JMP 

TL  1 

LAC* 

T2 

DAC* 

T.L 

LAC 

T! 

ISZ 

T.L 

JMP* 

T.L 

CLC 

TAD* 

T2 

AND 

*77777 

XOR 

=400000 

IOT 

2 

JMS 

TII 

LACQ 

JMS 

TII 

LAC 

T! 

JMS 

TII 

JMP 

TF+1 

TRUNCATE  HIGH  ORDER  BITS 
DISABLE  INTERRUPTS 
SAVE  ALLOCATION  MASK 
GET  ADDRESS  OF  RETURN 
TRUNCATE  HIGH  ORDER  BITS 
INDICATE  ALLOCATION  DELAY 
PUT  TASK  ADDRESS  ON  QUEUE 
GET  ALLOCATION  MASK 
PUT  ALLOCATION  MASK  ON  QUEUE 
GET  ANOTHER  TASK 

COMPLEMENT  RELEASE  MASK 
MODIFY  ALLOCATION  STATUS 
STORE  NEW  ALLOCATION  STATUS 
RETURN 

SAVE  AC  CONTENTS 
LOAD  AC  WITH  -2 

FORM  ADDRESS  OF  SUBROUTINE  ENTRY 

SAVE  ADDRESS  OF  SUBROUTINE  ENTRY 

GET  SAVED  RETURN  POINTER 

SKIP  IF  SUBROUTINE  ENTERABLE 

RESCHEDULE  SUBROUTINE  CALL 

GET  RETURN  POINTER 

SAVE  AND  LOCK  SUBROUTINE 

RESTORE  AC  CONTENTS 

ADVANCE  PAST  SAVED  RETURN  POINTER 

RETURN 

LOAD  AC  WITH  -I 

FORM  ADDRESS  OF  SUBROUTINE  CALL 

TRUNCATE  HIGH  ORDER  BITS 

INDICATE  REENTRY  DELAY 

DISABLE  INTERRUPTS 

PUT  TASK  ADDRESS  ON  QUEUE 

GET  CONTENTS  OF  MQ 

PUT  ON  TASK  QUEUE 

RESTORE  AC  CONTENTS 

PUT  ON  TASK  QUEUE 

GET  A  NEW  TASK 
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TU  DAC  T1 

LAC*  T.U 
TAD  «2 
DAC  T2 
LAC*  T2 
DAC  T3 
DZM*  T2 
LAC  T 1 
JMP*  T3 


SAVE  AC  CONTENTS 

GET  ADDRESS  OF  SUBROUTINE 

FORM  ADDRESS  OF  SAVED  RETURN 

SAVE  ADDRESS  OF  SAVED  RETURN 

GET  SAVED  RETURN 

SAVE  TEMPORARILY 

UNLOCK  SUBROUTINE 

RESTORE  AC  CONTENTS 

RETURN  FROM  SUBROUTINE 


TV  SDC  0 
DAC  T1 
LAC*  TV 
DAC  T2 
ISZ  TV 
LAC  TV 
DAC  T.L 
JMP  TL+4 


SAVE  AC  CONTENTS 
GET  POINTER  TO  SUBROUTINE 
SAVE  POINTER  TO  SUBROUTINE 
FORM  POINTER  TO  SAVED  RETURN 
GET  POINTER  TO  SAVED  RETURN 
SIMULATE  CALL  TO  T.L 
FAKE  AN  ENTRY  TO  T.L 


TIO  SDC  0 

LAC  TQ+2 
SAD  TQ+1 
JMP  EE 
JMS  TI 
DAC  TQ+2 
LAC*  TQ+2 
JMP*  TIO 


GET  OUTPUT  POINTER 

SKIP  IF  TASK  QUEUE  NOT  EMPTY 

TASK  QUEUE  EMPTY 

INCREMENT 

STORE  NEW  OUTPUT  POINTER 
GET  WORD  FROM  TASK  QUEUE 
RETURN 


TI I  SDC  0 
DAC  2  A 
LAC  TQ+I 
JMS  TI 
DAC  TQ+1 
SAD  TQ+2 
JMP  EQ 
LAC  2  A 
DAC*  TQ+I 
JMP*  TI I 


SAVE  VALUE  TO  BE  STORED 
GET  INPUT  POINTER 
INCREMENT 

STORE  NEW  INPUT  POINTER 

SKIP  IF  NO  TASK  QUEUE  OVERFLOW 

TASK  QUEUE  OVERFLOW 

GET  VALUE  TO  BE  STORED 

PUT  IN  TASK  QUEUE 

RETURN 


TI 


SDC  0 
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TO 


SAD  TO 
LAC  *TQ*2 
TAD  =1 
JMP^  TI 


SKIP  IF  NO  WRAP-AROUND 

GET  ADDRESS  BEFORE  FIRST  DATA  WORD 

INCREMENT  POINTER 

RETURN 


SDC  ♦♦200 
SDS  200 
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STITLE 

CB6  CLL 

LRS  14 
ALS  3 
LRS  6 
ALS  3 
LLS  11 
DAC  T1 
LLS  6 
ALS  3 
LRS  6 
ALS  3 
AND  *77 
LRS  11 
LAC  T1 
JMP*  C.B6 

C6A  AND  *77 

TAD  *C6A1 
DAC  T1 
LAC*  T1 
JMP*  C.6A 

C6A1  SDC  260 
SDC  261 
SDC  262 
SDC  263 
SDC  264 
SDC  265 
SDC  266 
SDC  267 
SDC  270 
SDC  271 
SDC  301 
SDC  302 
SDC  303 
SDC  304 
SDC  305 
SDC  306 


FORMAT  CONVERTER 

USE  ZERO  j  TO  FILL  HOLES 

SHIFT  DIGITS  2,  3*  4*  *  5  INTO  MO 

CONVERT  DIGIT  2 

SHIFT  DIGIT  2  INTO  MO 

CONVERT  DIGIT  1 

SHIFT  DIGITS  0,  1#  t  2  INTO  AC 
STORE  HIGH  ORDER  DIGITS 
SHIFT  DIGITS  3  t  A  INTO  AC 
CONVERT  DIGIT  5 
SHIFT  DIGIT  4  INTO  MO 
CONVERT  DIGIT  4 
CONVERT  DIGIT  3 

SHIFT  LOW  ORDER  DIGITS  INTO  MO 

GET  HIGH  ORDER  DIGITS 

RETURN 

TRUNCATE  HIGH  ORDER  BITS 
ADD  ADDRESS  OF  TABLE 
SAVE  TEMPORARILY 
GET  CONVERTED  VALUE 
RETURN 
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SDC  307 
SOC  310 
SDC  311 
SDC  312 
SDC  313 
SDC  314 
SDC  315 
SDC  316 
SDC  317 
SDC  320 
SDC  321 
SDC  322 
SDC  323 
SDC  324 
SDC  32  5 
SDC  326 
SDC  327 
SDC  330 
SDC  331 
SDC  332 
SDC  252 
SDC  257 
SDC  253 
SDC  255 
SDC  250 
SDC  251 
SDC  333 
SDC  335 
SDC  274 
SDC  275 
SDC  276 
SDC  336 
SDC  337 
SDC  256 
SDC  254 
SDC  272 
SDC  273 
SDC  277 
SDC  241 
SDC  247 
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CA6 


CA61 


SDC 

242 

SDC 

244 

SDC 

243 

SDC 

246 

SDC 

2  1  S 

SDC 

212 

SDC 

240 

SDC 

377 

AND 

*  1  77 

TAD 

=  CA61 

DAC 

T1 

LAC* 

T1 

JMP* 

C.A6 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

75 

SDC 

77 

SDC 

77 

SDC 

74 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

TRUNCATE  HIGH  ORDER  BITS 
ADD  ADDRESS  OF  TABLE 
SAVE  TEMPORARILY 
GET  CONVERTED  VALUE 
RETURN 
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SDC  77 
SDC  77 
SDC  77 
SDC  77 
SDC  77 
SDC  77 
SDC  77 
SDC  76 
SDC  66 
SDC  70 
SDC  72 
SDC  71 
SDC  77 
SDC  73 
SDC  67 
SDC  50 
SDC  51 
SDC  44 
SDC  46 
SDC  62 
SDC  47 
SDC  61 
SDC  45 
SDC  00 
SDC  01 
SDC  02 
SDC  03 
SDC  04 
SDC  05 
SDC  06 
SDC  07 
SDC  10 
SDC  11 
SDC  63 
SDC  64 
SDC  54 
SDC  55 
SDC  56 
SDC  65 
SDC  77 
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SDC 

12 

SDC 

13 

SDC 

14 

SDC 

15 

SDC 

16 

SDC 

17 

SDC 

20 

SDC 

21 

SDC 

22 

SDC 

23 

SDC 

24 

SDC 

25 

SDC 

26 

SDC 

27 

SDC 

30 

SDC 

31 

SDC 

32 

SDC 

33 

SDC 

34 

SDC 

35 

SDC 

36 

SDC 

37 

SDC 

40 

SDC 

41 

SDC 

42 

SDC 

43 

SDC 

52 

SDC 

77 

SDC 

53 

SDC 

57 

SDC 

60 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 
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SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

snc 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

SDC 

77 

CCB 

DAC 

T 1 

SAVE  VALUE  TO  BE  CONVERTED 

AND 

*1777 

GET  MAGNITUDE 

DAC 

T2 

SAVE  MAGNITUDE 

LAC 

T1 

GET  VALUE  TO  BE  CONVERTED 

AND 

*2000 

GET  SIGN  BIT 

SNA 

SKIP  IF  NEGATIVE 

JMP 

CCB  1 

DO  NOT  MODIFY  MAGNITUDE 

LAC 

T2 

GET  MAGNITUDE 

CM  A 

FORM  1  *S  COMPLEMENT 

TAD 

*1 

FORM  2'S  COMPLEMENT 

JMP* 

C.CB 

RETURN 

CCB 1 

LAC 

T2 

GET  CONVERTED  VALUE 

JMP* 

C.CB 

RETURN 

CBC 

SMA 

SKIP  IF  NEGATIVE 

JMP 

CBC  1 

DO  NOT  FORM  NEGATIVE 
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CMA 

AND  *  1 777 
TAD  *2001 
AND  *3777 
JMP*  C.BC 
CBC1  AND  *1777 
JMP*  C.BC 


FORM  1*S  COMPLEMENT 
GET  MAGNITUDE 

SET  SIGN  BIT  «  FORM  2*S  COMPLEMENT 
CLEAR  ESCAPE/  IN  TENSITY  BIT 
RETURN 

CONVERT  TO  MODULO  2*10 
RETURN 
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STITLE 

201  DATAPHONE  BUFFER  MANAGER 

BFDLE 

SEQU 

220 

DATA  LINK  ESCAPE 

BFSYN 

SEQU 

26 

SYNCHRONOUS  IDLE 

BFACK 

SEQU 

6 

POSITIVE  ACKNOWLEDGEMENT 

BFNAK 

SEQU 

225 

NEGATIVE  ACKNOWLEDGEMENT 

BFEOT 

SEQU 

204 

END  OF  TRANSMISSION 

BFENQ 

SEQU 

5 

ENQUIRY 

BFETB 

SEQU 

27 

END  OF  TEXT  BLOCK 

BFETX 

SEQU 

3 

END  OF  TEXT 

*  STATE  BITS  (LOW  ORDER  5  BITS  OF  BFS) t 

*  0!  ACK  OUTSTANDING 

*  02  LAST  INPUT  RECORD  COMPLETELY  RECEIVED 

*  04  ACK  OUTPUT  PENDING 

*  10  NAK  OUTPUT  PENDING 

*  20  DATA  OUTPUT  PENDING 


IOT 

1412 

AND 

si  000 

SNA 

JMP« 

>  B.FI 

LAC 

BFS 

AND 

=2 

SNA 

JMP 

BFI 2 

LAC 

BFIB 

SZA 

JMP 

BFI  2 

LAC* 

'  BFI 0 

DAC 

BFI  3 

ISZ 

BFI  0 

SMA 

JMP 

BFI  1 

LAC 

BFS 

XOR 

*6 

DAC 

BFS 

LAC 

■BFXMT 

JMS 

T.S 

LAC 

BFI  3 

READ  201  STATUS 

GET  SET  READY  BIT 

SKIP  IF  DATA  SET  CONNECTED 

DATA  SET  NOT  CONNECTED 

GET  201  TASK  STATE 

GET  INPUT  RECORD  AVAILABLE  BIT 

SKIP  IF  INPUT  RECORD  AVAILABLE 

WAIT  FOR  INPUT  RECORD 

GET  FIRST  RECEIVED  CHARACTER 

SKIP  IF  USER  RECORD 

WAIT  FOR  RECORD  TO  BE  TYPED 

GET  CHARACTER  FROM  INPUT  BUFFER 

SAVE  INPUT  CHARACTER 

INCREMENT  INPUT  POINTER 

SKIP  IF  END  OF  RECORD 

RETURN 

GET  201  TASK  STATE 
FORM  ACK  PENDING  STATE 
SET  NEW  STATE 

GET  ADDRESS  OF  TRANSMISSION  TASK 
SCHEDULE  TRANSMISSION  TASK 
GET  END  OF  RECORD  CHARACTER 
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BFI 1 

ISZ  B.  FI 

INDICATE  SUCCESS 

JMP*  B.FI 

RETURN 

JMP  BFI 

GET  CHARACTER  FROM  INPUT  BUFFER 

BFI 2 

JMS  T.P 

SCHEDULE  PREVIOUS  LOC  t  TERMINATE 

BFO 

DAC  BF03 

SAVE  CHARACTER  TO  BE  BUFFERED 

IOT  1412 

READ  201  STATUS 

AND  *  1 000 

GET  SET  READY  BIT 

SNA 

SKIP  IF  DATA  SET  CONNECTED 

JMP*  B.FO 

DATA  SET  NOT  CONNECTED 

LAC  BFS 

GET  201  TASK  STATE 

AND  =21 

GET  DATA  OUTPUT  t  ACK  EXP  BITS 

SZA 

SKIP  IF  OUTPUT  BUFFER  IS  FREE 

JMP  BF02 

PUT  CHARACTER  INTO  BUFFER  LATER 

LAC  BF03 

GET  CHARACTER  TO  BE  BUFFERED 

DAC*  BFOI 

PUT  CHARACTER  IN  OUTPUT  BUFFER 

ISZ  BFOI 

INCREMENT  INPUT  POINTER 

SMA 

SKIP  IF  END-OF-RECORD  CHARACTER 

JMP  BFOI 

RETURN 

LAC  BFS 

GET  201  TASK  STATE 

XOR  -20 

SET  DATA  OUTPUT  PENDING  BIT 

DAC  BFS 

SET  NEW  201  TASK  STATE 

LAC  -BFXMT 

GET  ADDRESS  OF  TRANSMISSION  TASK 

JMS  T.S 

SCHEDULE  TRANSMISSION  TASK 

BFOl 

ISZ  B.FO 

INDICATE  SUCCESS 

JMP*  B.FO 

RETURN 

JMP  BFO+1 

PUT  character  in  buffer 

BF02 

JMS  T.P 

SCHEDULE  PREVIOUS  LOC  «  TERMINATE 

BFXMT 

IOT  1412 

READ  201  STATUS 

AND  -60100 

GET  CAR  DET#  XMT  REG#  CLR  SEND  BITS 

SZA 

SKIP  IF  ABLE  TO  TRANSMIT 

JMP  BFXMT4 

RESCHEDULE  BFXMT 

LAC  BFS 

GET  201  TASK  STATE 

RAR 

SHIFT  ACK  EXPECTED  BIT  INTO  LINK 

SZL+RAR 

SKIP  IF  ACK  NOT  EXPECTED 

JMP  BFXMT4 

RESCHEDULE  BFXMT 

SZL+RAR 

SKIP  IF  INPUT  BUFFER  EMPTY 

JMP  BFXMT4 

RESCHEDULE  BFXMT 

SNL+RAR 

SKIP  IF  ACK  OUTPUT  PENDING 
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JMP  BFXMT1 
LAC  BFS 
AND  *33 
DAC  BFS 
LAC  *BFI B 
DAC  BFI ! 

DAC  BFIO 
LAC  =BFACKR 
JMP  BFXMT3 
BFXMT1  SNL+RAR 

JMP  BFXMT2 
LAC  BFS 
AND  =27 
DAC  BFS 
LAC  aBFNAKR 
JMP  BFXMT3 
BFXMT2  SNL 

JMS  T.F 
LAC  BFS 
XOR  =21 
DAC  BFS 
LAC  =BFOB 
BFXMT3  DAC  BFOO 
LAW  -10 
DAC  BFC 
LAW  BFSYN 
DAC  5 

LAC  *200005 
DAC  IFO 
LAC  =20000 
IOT  1404 
JMS  T.F 
JMP  BFXMT 
BFXMT4  JMS  T.P 


CHECK  FOR  NAK  OUTPUT  PENDING 

GET  201  TASK  STATE 

CLEAR  ACK  OUTPUT  PENDING  BIT 

SET  NEW  201  TASK  STATE 

GET  ADDRESS  OF  INPUT  BUFFER 

RESET  INPUT  POINTER 

RESET  OUTPUT  POINTER 

GET  POINTER  TO  ACK  RECORD 

TRANSMIT  ACK 

SKIP  IF  NAK  OUTPUT  PENDING 
CHECK  FOR  DATA  OUTPUT  PENDING 
GET  201  TASK  STATE 
CLEAR  NAK  OUTPUT  PENDING  BIT 
SET  NEW  201  TASK  STATE 
GET  POINTER  TO  NAK  RECORD 
TRANSMIT  NAK 

SKIP  IF  DATA  OUTPUT  PENDING 

NO  OUTPUT  PENDING 

GET  201  TASK  STATE 

CLEAR  DATA  BIT#  SET  ACK  EXP  BIT 

SET  NEW  201  TASK  STATE 

GET  POINTER  TO  OUTPUT  BUFFER 

SET  OUTPUT  POINTER 

LOAD  AC  WITH  -8 

SET  SYN  COUNT 

GET  SYN  CHARACTER 

SET  TRANSMIT  IMAGE 

GET  LAC  5  INSTRUCTION 

INITIALIZE  XMT  INTERRUPT  SERVICE 

GET  XMT  REQ  BIT  MASK 

SET  XMT  REO  BIT 

TERMINATE 

START  TRANSMISSION,  IF  APPLICABLE 
SCHEDULE  PREVIOUS  LOC  «  TERMINATE 


BFACKR  LAW  BFACK  ACK  RECORD 

BFNAKR  LAW  BFNAK  NAK  RECORD 

BFTTY  LAC  BFTTY2  GET  CONDITIONAL  TELEPRINTER  MASK 

JMS  T.A  ALLOCATE  TELEPRINTER,  IF  NECESSARY 
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DZM 

BFTTY2 

PREPARE  FOR  POSSIBLE  ENQUIRY 

LAC*  BFI 0 

GET  CHARACTER  FROM  BUFFER 

SPA 

SKIP  IF  NOT  END-OF-RECORD  CHARACTER 

JHP 

BFTTY1 

TERMINATE  LINE 

JMS 

C.A6 

CONVERT  TO  6-BIT  CODE 

XOR 

•777700 

PRECEDE  WITH  NULL  CHARACTERS 

JMS 

B.T 

TYPE  CHARACTER 

ISZ 

BFI  0 

INCREMENT  INPUT  POINTER 

JMP 

BFTTY*3 

TYPE  NEXT  CHARACTER 

BFTTY1 

LAW 

17475 

GET  CARRIAGE  RETURN*  LINE  FEED  CODE 

JMS 

B.T 

TYPE  CARRIAGE  RETURN*  LINE  FEED 

LAC 

BFS 

GET  201  TASK  STATE 

XOR 

•6 

FORM  ACK  PENDING  STATE 

DAC 

BFS 

SET  NEW  201  TASK  STATE 

LAW 

10 

6ET  ALLOCATION  MASK 

DAC 

BFTTY2 

SET  BFTTY  ALLOACTION  MASK 

JMS 

T.R 

RELEASE  TELEPRINTER 

JMP 

BFXMT 

ACKNOWLEDGE  RECORD 

I  FI 

LAC 

4 

GET  RECEIVED  CHARACTER 

LRS 

4 

SHIFT  INTO  POSITION 

AND 

•  377 

TRUNCATE  HIGH  ORDER  BITS 

MLT 

state  VARIABLE 

SAD 

•BFSYN 

SKIP  IF  NOT  SYN 

SKP 

FIND  NEXT  SYN  6  CHANGE  STATE 

JMP 

I  FI  6 

IGNORE  CHARACTER 

IOT 

1412 

READ  201  STATUS 

AND 

•2000 

GET  TEXT  BIT 

IOT 

1404 

CLEAR  TEXT  BIT 

LAC 

•  600000*1  FI  1 

GET  JMP  I  FI  1  INSTRUCTION 

DAC 

I  FI  *3 

MODIFY  INTERRUPT  SERVICE 

IOT 

1442 

CLEAR  201  FLAGS 

JMP 

IR 

RETURN  FROM  INTERRUPT 

I  FI  1 

SAD 

■BFSYN 

SKIP  IF  NOT  SYN 

JMP 

IFI1-2 

IGNORE  SYN 

SAD 

■BFDLE 

SKIP  IF  NOT  DLE  (EVEN  PARITY) 

JMP 

*♦3 

BUFFER  RECEIVED  RECORD 

LAC 

>740000 

GET  NOP  INSTRUCTION 

JMP 

IFI  1-3 

MODIFY  INTERRUPT  SERVICE 

LAC 

«  600000*1  FI  2 

GET  JMP  I  FI  2  INSTRUCTION 
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I  FI  2 


I  FI  3 


I  FI  31 


I  FI  32 


JMP  IFI1-3 
SAD  *BFDLE 
JMP  IFI3-2 
SAD  *BFDLE-200 
JMP  I  FI  3-2 
JMS  BFIS 
JMP  I  FI  1-2 
LAC  *600000+1  FI  3 
JMP  I  FI  1-3 
SAD  *BFDLE 
JMP  IFI31-3 
SAD  *BFDLE-200 
JMP  I  FI  31 -3 
SAD  *BFSYN 
JMP  I  FI  31 -2 
DAC  BFEOR 
SAD  «BFACK 
JMP  I  FI  31 
SAD  =BFNAK 
JMP  I  FI  32 
XOR  *760000 
JMS  BFIS 

LAC  *600000  +  1  FI  4 
JMP  I  FI  1-3 
JMS  BFIS 

LAC  *600000+1 FI2 

JMP  I  FI  1-3 

LAC  *BFOB 

DAC  BFOI 

LAC  BFS 

AND  *u6 

DAC  BFS 

LAC  *740000 

JMP  I  FI  1-3 

LAC  BFS 

XOR  *21 

DAC  BFS 

LAC  =BFXMT 

JMS  Til 

JMP  I  FI  32-2 


MODIFY  INTERRUPT  SERVICE 
SKIP  IF  NOT  DLE  (EVEN  PARITY) 
CHANGE  STATE  FOR  NEXT  CHARACTER 
SKIP  IF  NOT  DLE  (ODD  PARITY) 
CHANGE  STATE  FOR  NEXT  CHARACTER 
PUT  CHARACTER  IN  BUFFER 
CLEAR  FLAGS  AND  RETURN 
GET  JMP  I  FI  3  INSTRUCTION 
MODIFY  INTERRUPT  SERVICE 
SKIP  IF  NOT  DLE  (EVEN  PARITY) 

PUT  DLE  IN  BUFFER 

SKIP  IF  NOT  DLE  (ODD  PARITY) 

PUT  DLE  IN  BUFFER 
SKIP  IF  NOT  SYN 
IGNORE  SYN 

SAVE  END-OF-RECORD  CHARACTER 

SKIP  IF  NOT  ACK 

CLEAR  OUTPUT  BUFFER 

SKIP  IF  NOT  NAK 

RETRANSMIT  LAST  DATA  RECORD 

INDICATE  END-OF-RECORD  CHARACTER 

PUT  CHARACTER  IN  BUFFER 

GET  JMP  I  FI  4  INSTRUCTION 

MODIFY  INTERRUPT  SERVICE 

PUT  DLE  CHARACTER  IN  BUFFER 

GET  JMP  I  FI  2  INSTRUCTION 

MODIFY  INTERRUPT  SERVICE 

GET  ADDRESS  OF  OUTPUT  BUFFER 

RESET  INPUT  POINTER 

GET  201  TASK  STATE 

INDICATE  ACK  NOT  EXPECTED 

STORE  NEW  TASK  STATE 

GET  NOP  INSTRUCTION 

MODIFY  INTERRUPT  SERVICE 

GET  201  TASK  STATE 

FORM  STATE  FOR  RETRANSMISSION 

STORE  NEW  TASK  STATE 

GET  ADDRESS  OF  TRANSMISSION  TASK 

SCHEDULE  TRANSMISSION 

MODIFY  INTERRUPT  SERVICE 
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I  FI  4 


I  FI  5 


I  FI  51 


I  FI  6 


I  FO 


I  FOl 


CLL 

PREPARE  TO  SHIFT  ZEROS  INTO  AC 

ALS 

10 

SHIFT  HIGH  ORDER  CHECK  INTO  POSITION 

DAC 

BFCKR 

SAVE  HIGH  ORDER  BLOCK  CHECK 

LAC 

■600000  +  1  FI  5 

GET  JMP  I  FI  5  INSTRUCTION 

JMP 

IFI 1-3 

MODIFY  INTERRUPT  SERVICE 

XOR 

BFCKR 

FORM  COMPLETE  BLOCK  CHECK 

SAD 

BFCK 

SKIP  IF  BAD  RECORD 

JMP 

I  FI  51 

INDICATE  INPUT  BUFFER  FULL 

LAC 

■  BFIB 

GET  ADDRESS  OF  INPUT  BUFFER 

DAC 

BFI I 

RESET  INPUT  POINTER 

DAC 

BFIO 

RESET  OUTPUT  POINTER 

LAC 

BFS 

GET  201  TASK  STATE 

XOR 

■  10 

INDICATE  NAK  PENDING 

DAC 

BFS 

SET  NEW  201  TASK  STATE 

JMP 

I  FI  4-3 

SCHEDULE  TRANSMISSION  TASK 

LAC 

BFS 

GET  201  TASK  STATE 

XOR 

■2 

INDICATE  INPUT  BUFFER  FULL 

DAC 

BFS 

SET  NEW  201  TASK  STATE 

LAC 

BFEOR 

GET  END-OF-RECORD  CHARACTER 

JMS 

BFENQS 

PROCESS  ENQUIRY#  IF  PRESENT 

LAC 

BFIB 

GET  FIRST  RECEIVED  CHARACTER 

SNA 

SKIP  IF  UNSOLICITED  RECORD 

JMP 

IFI 32-2 

MODIFY  INTERRUPT  SERVICE 

LAC 

-BFTTY 

GET  ADDRESS  OF  BYPASS  TASK 

JMP 

IFI  4-2 

SCHEDULE  BYPASS  TASK 

IOT 

1412 

READ  201  STATUS 

AND 

o 

s 

CM 

II 

GET  TEXT  BIT 

IOT 

1404 

CLEAR  TEXT  BIT 

JMP 

IFI 1-2 

CLEAR  FLAGS  AND  RETURN 

HLT 

STATE  VARIABLE 

SAD 

■760000+BFSYN 

SKIP  IF  NOT  SYN 

JMP 

I  FOl 

syn  SENT  LAST  TIME 

SAD 

■760000+BFDLE 

SKIP  IF  NOT  DLE 

JMP 

I  F03 

DLE  SENT  LAST  TIME 

SMA 

SKIP  IF  END-OF-RECORD  CHARACTER 

JMP 

I  F04 

TEXT  CHARACTER  SENT  LAST  TIME 

JMP 

I  F05 

ENTER  BLOCK  CHECK  PROCEDURE 

ISZ 

BFC 

SKIP  IF  LAST  SYN  SENT 

JMP 

I F02  +  2 

CLEAR  FLAGS  AND  RETURN 
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IF02 

IF03 

IF04 


IF05 


IF06 


IF07 


I  F08 


LAC 

•BFDLE 

GET  INITIAL  DLE 

SKP 

SET  TRANSMIT  IMAGE 

LAW 

BFDLE 

GET  DLE  CHARACTER 

DAC 

5 

SET  TRANSMIT  IMAGE 

IOT 

1442 

CLEAR  201  FLAGS 

JMP 

1R 

RETURN  FROM  INTERRUPT 

LAC*  BFOO 

6ET  CHARACTER  FROM  BUFFER 

JMS 

BFCKS 

UPDATE  BLOCK  CHECK 

LAC 

BFOO 

GET  OUTPUT  POINTER 

SAD 

•BFOB 

SKIP  IF  NOT  FIRST  CHARACTER 

DZM 

BFCK 

CLEAR  BLOCK  CHECK 

LAC*  BFOO 

GET  CHARACTER  FROM  OUTPUT  BUFFER 

ISZ 

BFOO 

INCREMENT  OUTPUT  POINTER 

JMP 

1 F02* 1 

TRANSMIT  CHARACTER 

LAC*  BFOO 

GET  CHARACTER  FROM  BUFFER 

SAD 

“BFDLE 

SKIP  IF  NOT  DLE  (EVEN  PARITY) 

JMP 

IF02 

PRECEDE  WITH  DLE 

SAD 

•BFDLE-200 

SKIP  IF  NOT  DLE  (ODD  PARITY) 

JMP 

I F02 

PRECEDE  WITH  DLE 

SMA 

SKIP  IF  END  OF  RECORD 

JMP 

IF03+1 

SEND  CHARACTER  FROM  BUFFER 

AND 

•  377 

TRUNCATE  HIGH  ORDER  BITS 

JMS 

BFENQS 

PROCESS  ENQUIRY,  IF  PRESENT 

JMP 

I F02 

PRECEDE  WITH  DLE 

LAC 

•  600  000*1 F06 

GET  JMP  I F06  INSTRUCTION 

DAC 

IFO 

MODIFY  INTERRUPT  SERVICE 

LAC 

BFCK 

GET  BLOCK  CHECK 

LRS 

10 

SHIFT  HIGH  ORDER  PART  INTO  POSITION 

JMP 

IF02+1 

TRANSMIT  HIGH  ORDER  BLOCK  CHECK 

LAC 

=  600000*1 F07 

GET  JMP  INSTRUCTION 

DAC 

IFO 

MODIFY  INTERRUPT  SERVICE 

LAC 

BFCK 

GET  BLOCK  CHECK 

JMP 

IF02+1 

TRANSMIT  LOW  ORDER  PART 

LAC 

•600000*1 F08 

GET  JMP  IF08  INSTRUCTION 

DAC 

IFO 

MODIFY  INTERRUPT  SERVICE 

CLC 

GET  PAD  CHARACTER 

JMP 

I F02* 1 

TRANSMIT  PAD 

IOT 

1  412 

READ  201  STATUS 

AND 

•20000 

GET  KMT  REQ  BIT 

IOT 

1  40  4 

CLEAR  KMT  REQ  BIT 
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B FENGS 


BFIS 


BFCKS 


BFCKS1 


JMP  IF02+2 


CLEAR  201  FLAGS  AND  RETURN 


SDC  0 

SAD  >BFENQ 
JMP  **4 
SAD  >BFEOT 
SKP 

JMP*  BFENQS 
LAC  >BFOB 
DAC  BFOX 
LAC  ■BFIB 
DAC  BFII 
DAC  BF20 
DZM  BFIB 
DZM  BPS 
LAC  >740000 
DAC  I  FI *3 
JMP*  BFENQS 


SKIP  IF  NOT  ENQUIRY 
PROCESS  ENQUIRY 

SKIP  IF  NOT  END-OF- TRANSMISSION 

REGARD  AS  ENQUIRY 

RETURN 

GET  ADDRESS  OF  OUTPUT  BUFFER 
RESET  INPUT  POINTER 
GET  ADDRESS  OF  INPUT  BUFFER 
RESET  INPUT  POINTER 
RESET  OUTPUT  POINTER 
DO  NOT  SCHEDULE  BYPASS  TASK 
STOP  201  TASK  ACTIVITY 
GET  NOP  INSTRUCTION 
MODIFY  INTERRUPT  SERVICE 
RETURN 


SDC  0 
DAC*  BFII 
JMS  BFCKS 
LAC  BFII 
SAD  >BFIB 
DZM  BFCK 
ISZ  BFII 
JMP*  BFIS 


PUT  CHARACTER  IN  INPUT  BUFFER 

UPDATE  BLOCK  CHECK 

GET  INPUT  POINTER 

SKIP  IF  INPUT  BUFFER  NON-EMPTY 

CLEAR  BLOCK  CHECK 

INCREMENT  INPUT  POINTER 

RETURN 


SDC  0 
DAC  23 
LAW  -10 
DAC  24 
LAC  BFCK 
RCR 

DAC  BFCK 
CLQ 

LAC  23 
LRS  1 
DAC  23 
LACQ 


SAVE  CHARACTER 
LOAD  AC  WITH  -8 
SET  COUNTER 

GET  FORMER  BLOCK  CHECK 
ROTATE  LOW  ORDER  BIT  INTO  LINK 
STORE  NEW  LOW  ORDER  15  BITS 
PREPARE  TO  GET  LOW  ORDER  CHAR  BIT 
GET  CHARACTER  REMAINS 
SHIFT  LOW  ORDER  BIT  INTO  MQ 
STORE  CHARACTER  REMAINS 
GET  LOW  ORDER  CHARACTER  BIT 
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SZA 

CML 

LAC  BFCK 
SZL 

XOR  *120001 
ISZ  24 
JMP  BFCK SI 
DAC  BFCK 
JMP*  BFCKS 


SKIP  IF  NOT  SET 

OR  CHECK  BIT  WITH  CHARACTER  BIT 
GET  LOW  ORDER  IS  BITS  OF  CHECK 
SKIP  IF  LOW  ORDER  BIT  WAS  0 
INVERT  FEEDBACK  BITS 
INCREMENT  COUNT  A  SKIP  IF  DONE 
PROCESS  NEXT  CHARACTER  BIT 
STORE  NEW  BLOCK  CHECK 
RETURN 


BFIB  SDS  200 


BFOB  SDS  200 


I 
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I 


BR 


BR1 


BR2 


IRD 


STITLE 

READER  BUFFER  MANAGER 

LAC 

SNA 

BRO 

GET  OUTPUT  POINTER 

SKIP  IF  NOT  START  OF  NEW  RECORD 

JMP 

PR2 

CLEAR  BUFFER  t  START  READER 

SAD 

BRI 

SKIP  IF  BUFFER  NOT  EMPTY 

JMP 

8RI 

WAIT  FOR  MORE  INPUT 

LAC*  BRO 

GET  IMAGE  FROM  BUFFER 

ISZ 

SNA 

BRO 

INCREMENT  OUTPUT  POINTER 

SKIP  IF  NOT  END  OF  RECORD 

DZM 

BRO 

INDICATE  NEW  RECORD  NEEDED 

ISZ 

B.R 

INDICATE  SUCCESS 

JMP1* 

'  B.R 

RETURN 

SAD 

■BRQ+200 

SKIP  IF  NOT  END  OF  BUFFER 

JMP 

BR2 

clear  BUFFER  A  START  READER 

IOT 

314 

READ  STATUS 

AND 

SNA 

■  1000 

GET  READER  OUT-OF-TAPE  FLAG 

SKIP  IF  READER  OUT  OF  TAPE 

JMP 

BR2-1 

SCHEDULE  NEW  ATTEMPT 

DZM 

BRO 

INDICATE  NEW  RECORD  NEEDED 

JMP* 

>  B.R 

RETURN 

JMP 

BR 

TRY  AGAIN  TO  GET  IMAGE 

JMS 

T.P 

SCHEDULE  NEW  ATTEMPT 

LAC 

■  BRO 

GET  ADDRESS  OF  READER  BUFFER 

DAC 

BRI 

SET  INPUT  POINTER 

DAC 

BRO 

SET  OUTPUT  POINTER 

IOT 

104 

SELECT  READER 

JMP 

BR2-1 

SCHEDULE  NEW  ATTEMPT 

IOT 

314 

READ  STATUS 

AND 

SZA 

■  1000 

GET  READER  OUT-OF-TAPE  FLAG 

SKIP  IF  TAPE  IS  IN  READER 

JMP 

I  RD1 

READER  OUT  OF  TAPE 

IOT 

SZA 

1  12 

READ  READER  BUFFER 

SKIP  IF  BLANK  TAPE 

JMP 

IRD2 

PUT  IMAGE  IN  BUFFER 

LAC 

SZA 

BRS 

GET  RECORD  SEEK  SWITCH 

SKIP  IF  END  OF  RECORD 

JMP 

I  RD3 

IGNORE  BLANK  TAPE 

JMS 

BRS 

SET  RECORD  SEEK  SWITCH 

f 


X 
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I 


BRS 

SOC  0 

RECORD  SEEK  SWITCH 

DZM*  BRI 

STORE  END-OF- RECORD  IMAGE 

ISZ  BRI 

INCREMENT  INPUT  POINTER 

JMP  IR 

RETURN  FROM  INTERRUPT 

IRD1 

IOT  102 

CLEAR  READER  FLAG 

JMP  IR 

RETURN  FROM  INTERRUPT 

IRD2 

DAC*  BRI 

STORE  IN  READER  BUFFER 

ISZ  BRI 

INCREMENT  INPUT  POINTER 

OZM  BRS 

CLEAR  RECORD  SEEK  SWITCH 

LAC  BRI 

GET  INPUT  POINTER 

SAD  ■BRQ+200 

SKIP  IF  NOT  END  OF  BUFFER 

JMP  IR 

RFTURN  FROM  INTERRUPT 

I RD3 

IOT  104 

SELECT  READER 

JMP  IR 

RETURN  FROM  INTERRUPT 

BRQ 

SOS  200 

i 
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STITLE 

PUNCH  BUFFER  MANAGER 

BP 

DAC  BP 4 

SAVE  PUNCH  IMAGE 

JMS  BP2 

START  PUNCH.  IF  POSSIBLE 

LAC  BP4 

GET  PUNCH  IMAGE 

LMQ 

SET  UP  PUNCH  IMAGE  AS  PARAMETER 

LAC  *BPft 

GET  ADDRESS  OF  PUNCH  BUFFER 

JMS  Q.A 

PUT  PUNCH  IMAGE  IN  BUFFER 

JMP  BPI 

PUNCH  BUFFER  FULL 

JMS  BP2 

START  PUNCH.  IF  POSSIBLE 

ISZ  B.P 

INDICATE  SUCCESS 

JMP*  B.P 

RETURN 

BP  I 

IOT  314 

READ  STATUS 

AND  «400 

GET  PUNCH  OUT-OF-TAPE  FLAG 

SZA 

SKIP  IF  PUNCH  CONTAINS  TAPE 

JMP*  B.P 

PUNCH  OUT  OF  TAPE 

SKP 

PREPARE  TO  SCHEDULE  NEXT  LOCATION 

JMP  BP*Z 

TRY  AGAIN  TO  PUT  IMAGE  IN  BUFFER 

JMS  T.P 

SCHEDULE  PREVIOUS  LOC  ft  TERMINATE 

BP2 

SDC  0 

LAC  BP3 

GET  PUNCH  STATUS  SWITCH 

SZA 

SKIP  IF  PUNCH  IS  IDLE 

JMP*  BP2 

PUNCH  IS  ACTIVE 

LAC  «BPQ 

GET  ADDRESS  OF  PUNCH  BUFFER 

JMS  O.F 

FETCH  IMAGE  FROM  BUFFER 

JMP*  BP2 

PUNCH  BUFFER  EMPTY 

IOT  204 

SELECT  PUNCH 

JMS  BP3 

SET  PUNCH  STATUS  SWITCH 

BP3 

SDC  0 

PUNCH  STATUS  SWITCH 

JMP*  BP2 

RETURN 

IPC 

IOT  314 

READ  STATUS 

AND  «400 

GET  PUNCH  OUT-OF-TAPE  FLAG 

SZA 

SKIP  IF  PUNCH  CONTAINS  TAPE 

JMP  I  PC  I 

PUNCH  OUT  OF  TAPE 

LAC  *BPQ 

GET  ADDRESS  OF  PUNCH  BUFFER 

JMS  QF1 

GET  IMAGE  FROM  PUNCH  BUFFER 

JMP  I  PCI 

PUNCH  BUFFER  EMPTY 

IOT  204 

SELECT  PUNCH 

\ 
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JMP  IR 

IPCI  IOT  202 
DZM  BPS 
JMP  IR 


RETURN  FROM  INTERRUPT 
CLEAR  PUNCH  FLAG 
INDICATE  PUNCH  IDLE 
RETURN  FROM  INTERRUPT 


BPQ 


SDC  *+100 
SDS  100 


A-60 


STITLC 

KEYBOARD  BUFFER  MANAGER 

BK 

LAC  »BKO 

GET  ADDRESS  OF  KEYBOARD  BUFFER 

jhs  q.f 

GET  CHARACTER  FROM  KEYBOARD  BUFFER 

JMP  BK1 

WAIT  FOR  MORE  INPUT 

OAC  BKF 

SAVE  ASCII  FOR  SYSTEM  USAGE 

JHS  C.A6 

CONVERT  TO  6-BIT  CODE 

JMP*  B«K 

RETURN 

JMP  BK 

TRY  AGAIN  TO  RETURN  CHARACTER 

BK1 

JMS  T*P 

SCHEDULE  NEW  ATTEMPT 

IKB 

IOT  ate 

READ  KEYBOARD  BUFFER 

LMO 

SET  UP  PARAMETER 

LAC  -BKQ 

GET  ADDRESS  OF  KEYBOARD  BUFFER 

JMS  6AI 

PUT  CHARACTER  IN  BUFFER 

NOP 

BUFFER  FULL  —  IGNORE  CHARACTER 

JMP  IP 

RETURN  FROM  INTERRUPT 

BKQ 

SDC  *♦100 

SOS  100 

r 
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JTITLE 

TELEPRINTER  BUFFER  MANAGER 

BT 

DAC  BT3 

SAVE  TENPORARILY 

LAC  BTS 

GET  PACKED  WORD  TO  BF  BUFFERED 

LMG 

SET  UP  PARANETER 

LAC  *BTO 

BET  ADDRESS  OF  TELEPRINTER  BUFFER 

JNS  Q.A 

PUT  PACKED  WORD  INTO  TP  BUFFER 

JMP  BTfi 

TRY  AOAIN  LATER 

LAC  BT1 

GET  TELEPRINTER  STATUS  SWITCH 

SZA 

SKIP  IF  TELEPRINTER  IDLE 

JMP*  B.T 

RETURN 

10T  £ 

DISABLE  INTERRUPTS 

LAC  B.T 

GET  RETURN  ADDRESS 

DAC  8 

STORE  INTERRUPT  RETURN 

JNS  BT1 

SET  TELEPRINTER  STATUS  SWITCH 

•T1 

SBC  • 

TELEPRINTER  STATUS  SWITCH 

JNP  I TP 

FAKE  A  TELEPRINTER  INTERRUPT 

JNP  BTM 

TRY  AGAIN  TO  PUT  CHAR  IN  BUFFER 

BT2 

JNS  T.P 

SCHEDULE  NEW  ATTEHPT 

BT3 

SOC  77 

BT4 

SOC  77 

I  TP 

LAC  BT4 

GET  SECOND  CHARACTER 

SAD  «»77 

SKIP  IF  NOT  NULL  CHARACTER 

SKP 

LOOK  AT  THIRD  CHARACTER 

JNP  I  TPS 

TYPE  SECOND  CHARACTER 

LAC  BTS 

GET  THIRD  CHARACTER 

SAD  »77 

SKIP  IF  NOT  NULL  CHARACTER 

SKP 

TYPE  FIRST  CHARACTER 

JNP  ITP4 

TYPE  THIRD  CHARACTER 

LAC  oBTO 

GET  ADDRESS  OF  TELEPRINTER  BUFFER 

JNS  0F1 

GET  PACKED  WORD  FROM  TP  BUFFER 

JNP  I TPfi 

CLEAR  FLAG  *  RETURN 

DAC  BT3 

SET  UP  THIRD  CHARACTER 

LRS  6 

SHIFT  SECOND  CHARACTER  INTO  PLACE 

DAC  BT4 

SET  UP  SECOND  CHARACTER 

LRS  6 

SHIFT  FIRST  CHARACTER  INTO  PLACE 

1TP1 

AND  *77 

TRUNCATE  HIGH  ORDER  BITS 

SAD  *77 

SKIP  IF  NOT  NULL  CHARACTER 

A-62 


JMP  I TP 

TYPE  NEXT  CHARACTER 

TAO  ■C6A1 

ADD  ADDRESS  OP  6-BIT  TO  ASCII  TABLE 

DAC  23 

SAVE  TEMPORARILY 

LAC*  23 

QET  CONVERTED  ASCII  VALUE 

10T  406 

SEND  CHARACTER  TO  TELEPRINTER 

JMP  1R 

RETURN  FROM  INTERRUPT 

ITP2 

10T  402 

CLEAR  TELEPRINTER  FLA 6 

OZM  BTI 

INDICATE  TELEPRINTER  IDLE 

JMP  IR 

RETURN  FROM  INTERRUPT 

ITP3 

DAC  23 

SAVE  TEMPORARILY 

LAC  «77 

GET  NULL  CHARACTER 

DAC  BT4 

STORE  AS  SECOND  CHARACTER 

LAC  23 

GET  CHARACTER  TO  BE  TYPED 

JMP  ITPI 

TYPE  SECOND  CHARACTER 

I  TP  4 

DAC  23 

SAVE  TEMPORARILY 

LAC  >77 

GET  NULL  CHARACTER 

DAC  BT3 

STORE  AS  THIRD  CHARACTER 

LAC  23 

GET  CHARACTER  TO  BE  TYPED 

JMP  ITPI 

TYPE  THIRD  CHARACTER 

BTO 

SDC  **100 

SDS  100 

A-63 


STITLE 

NONBUFFERED  I/O  MANAGER 

NA 

JMS  TV 

SOC  N.A 

SDC  0 

PROTECT  AGAINST  REENTRY 

AND  >77 

TRUNCATE  HIGH  ORDER  BITS 

IOT  1103 

SELECT  A/D  CONVERTER  CHANNEL 

IOT  1304 

SELECT  A/D  CONVERTER 

DZH  1AD1 

CLEAR  CONVERSION  SWITCH 

NAI 

I.AC  1A01 

GET  CONVERSION  SWITCH 

SNA 

SKIP  IF  CONVERSION  COMPLETE 

JMP  NAS 

WAIT  FOR  CONVERSION  TO  BE  COMPLETED 

LAC  NA3 

GET  CONVERTED  VALUE 

JMS  T.U 

SOC  NA 

UNLOCK  N.A 

NAI 

CHECK  FOR  CONVERSION  COMPLETE 

NA2 

JMS  T.P 

SCHEDULE  CONVERSION  CHECK 

NC 

JMS  TV 

SDC  N.C 

SDC  0 

PROTECT  AGAINST  REENTRY 

DAC  7 

SET  CLOCK  INTERVAL 

IOT  44 

ENABLE  CLOCK 

OZM  ICK+1 

CLEAR  CLOCK  SWITCH 

LAC  ICKM 

GET  CLOCK  SWITCH 

SNA 

SKIP  IF  TIME  INTERVAL  HAS  ELAPSED 

JMP  NCI 

WAIT  A  LITTLE  LONGER 

JMS  T.U 

SDC  NC 

UNLOCK  N.C 

JMP  *-5 

CHECK  ELAPSED  TIME 

NC! 

JMS  T.P 

SCHEDULE  A  LATER  CHECK 

N01 

IOT  S101 

SELECT  D/A  CONVERTER  #1 

JMP*  N.D1 

RETURN 

NOS 

IOT  S10S 

SELECT  D/A  CONVERTER  #& 

JMP*  N.DS 

RETURN 

NOS 

IOT  5104 

SELECT  D/A  CONVERTER  #3 

JMP*  N.D3 

RETURN 
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IAD 

IOT  1312 

READ  A/D  CONVERTER 

DAC  NA3 

STORE  CONVERTED  VALUE 

JMS  1AD1 

SET  CONVERSION  SWITCH 

IADI 

SDC  0 

CONVERSION  SWITCH 

JMP  1R 

RETURN  PROM  INTERRUPT 

ICK 

JMS 

SET  CLOCK  SWITCH 

SDC  0 

CLOCK  SWITCH 

IOT  4 

CLEAR  CLOCK  FLAG 

JMP  IR 

RETURN  PROM  INTERRUPT 
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STITLC 

PUSH  BUTTON  PROCESSOR 

PT 

SNA 

LAC  *PN 

DAC  PTT 

JHP*  P.T 

SKIP  IP  NOT  NULL  TASK 

GET  ADDRESS  OP  NULL  TASK 

SAVE  ADDRESS  OP  PUSH  BUTTON  SERVICE 
RETURN 

PE 

■ 

JMS  *♦! 

SDC  0 

JHP*  P.E 

SET  PUSH  BUTTON  ENABLE  SWITCH 

PUSH  BUTTON  ENABLE  SWITCH 

RETURN 

PD 

DZM  PE*1 

JHP*  P.D 

CLEAR  PUSH  BUTTON  ENABLE  SWITCH 
RETURN 

PR 

10T  631 

JHP*  P.R 

.<EAD  PUSH  BUTTONS 

RETURN 

PS 

10T  2 

JMS  PS1 

10T  42 

JHP*  P.S 

DISABLE  INTERRUPTS 

SET  PUSH  BUTTONS 

ENABLE  INTERRUPTS 

RETURN 

PN 

JMS  P.E 

JMS  T.P 

ENABLE  MANUAL  OPN  OP  PUSH  BUTTONS 
TERMINATE  TASK 

PS1 

SDC  0 

DAC  PR6 

LRS  6 

AND  *77 

TAD  *200 

10T  70S 

LLS  6 

AND  *77 

TAD  *300 

10T  705 

JMP*  PS1 

STORE  NEW  PUSH  BUTTON  STATUS 

SHI  PT  BITS  0-5  INTO  POSITION 
TRUNCATE  HIGH  ORDER  BITS 

SET  BITS  0-5  ENABLE  BIT 

SET  PUSH  BUTTONS  0-5 

SHIFT  BITS  6-11  INTO  POSITION 
TRUNCATE  HIGH  ORDER  BITS 

SET  BITS  6-11  ENABLE  BITS 

SET  PUSH  BUTTONS  6-11 

RETURN 

1PB 

LAC  PE* I 

SNA 

JMP  1PB1 

GET  PUSH  BUTTON  ENABLE  SWITCH 

SKIP  IP  PUSH  BUTTONS  ARE  ENABLED 
RESTORE  PUSH  BUTTON  STATUS 

1 

I 
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LAC  PTT 
AND  *77777 
JMS  TII 
IOT  631 
DAC  PRO 
DZM  PE+1 
JMP  IR 

IPB1  LAC  PR6 
JMS  PS] 

JMP  IR 


GET  ADDRESS  OF  PUSH  BUTTON  SERVICE 

TRUNCATE  HIGH  ORDER  BITS 

SCHEDULE  PUSH  BUTTON  SERVICE 

READ  PUSH  BUTTONS 

MODIFY  PUSH  BUTTON  STATUS  WORD 

DISABLE  PUSH  BUTTONS 

RETURN  FROM  INTERRUPT 

GET  FORMER  PUSH  BUTTON  STATUS 

SET  PUSH  BUTTONS 

RETURN  FROM  INTERRUPT 


STITLE 

DISPLAY  COMMUNICATOR 

DE 

JMS  *♦  1 

SDC  0 

JMP*  D.E 

SET  DISPLAY  INT  ENABLE  SWITCH 
DISPLAY  INT  ENABLE  SWITCH 

RETURN 

DD 

DZM  DE* 1 

JMP*  D.D 

CLEAR  INT  ENABLE  SWITCH 

RETURN 

DP 

SNA 

LAC  *DN 

DAC  DPT 

JMP*  D.P 

SKIP  IF  NOT  NULL  SERVICE 

GET  ADDRESS  OF  NULL  SERVICE 

STORE  ADDRESS  OF  SERVICE  TASK 
RETURN 

DA 

LAC  DS1 

LLS  14 

AND  *70000 

XOR  DSA 

JMP*  D.A 

GET  STATUS  WORD  1 

SHIFT  BREAK  FIELD  INTO  POSITION 
REMOVE  ALL  BUT  BREAK  FIELD 

FORM  15-BIT  ADDRESS 

RETURN 

DY 

LAC  DS2 

LLS  3 

AND  *10000 

XOR  DSY 

TAD  *-2000 

JMP*  D.Y 

GET  STATUS  WORD  2 

SHIFT  HIGH  ORDER  BIT  INTO  POSITION 
REMOVE  OTHER  BITS 

FORM  13-BIT  Y  COORDINATE 

CONVERT  RELATIVE  TO  SCREEN  CENTER 
RETURN 

DX 

LAC  DS2 

LLS  4 

AND  *10000 

XOR  DSX 

TAD  *-1000 

JMP*  D.X 

GET  STATUS  WORD  2 

SHIFT  HIGH  ORDER  BIT  INTO  POSITION 
REMOVE  OTHER  BITS 

FORM  13-BIT  X  COORDINATE 

CONVERT  RELATIVE  TO  SCREEN  CENTER 
RETURN 

DO 

AND  *77 

RCL 

CMA 

TAD  DSP 

TAD  «PDP2-PDP1-1 
DAC  T1 

TRUNCATE  HIGH  ORDER  BITS 

MULTIPLY  PARAMETER  BY  2 

FORM  l'S  COMPLEMENT 

ADD  PUSH  DOWN  POINTER 

COMPUTE  ADDRESS  OF  PUSH  DOWN  ENTRY 
SAVE  TEMPORARILY 

I 
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TAD  *-P DP2 

FORM  VALIDITY  CHECK 

SPA 

SKIP  IF  PARAMETER  VALID 

JMP*  0.0 

NOT  ENOUGH  OWNERS 

LAC*  T1 

GET  FIRST  PUSH  DOWN  WORD 

LLS  3 

SHIFT  BREAK  FIELD  INTO  POSITION 

AND  *  70000 

REMOVE  ALL  BUT  BREAK  FIELD 

ISZ  T1 

SET  POINTER  TO  SECOND  PD  ENTRY 

TAD*  Tl 

COMBINE  FIRST  t  SECOND  ENTRIES 

TAD  *7777 

FORM  ADDRESS  IN  OWNER  OF  OWNER 

DAC  Tl 

SAVE  TEMPORARILY 

LAC*  Tl 

GET  ADDRESS  OF  DESIRED  OWNER 

ISZ  D.O 

INDICATE  SUCCESS 

JMP*  D.O 

RETURN 

ON 

JMS  D.E 

ENABLE  DISPLAY  INTERRUPTS 

JMS  T.F 

TERMINATE  TASK 

DW 

SDC  0 

DZM  DWT 

CLEAR  DISPLAY  READY  SWITCH 

LAC  DWT 

GET  DISPLAY  READY  SWITCH 

SNA 

SKIP  IF  SET 

JMP  **3 

WAIT  FOR  DISPLAY  TO  FINISH  FRAME 

JMP*  DW 

RETURN 

JMP  DW+2 

CHECK  DISPLAY  READY  SWITCH 

JMS  T.P 

SCHEDULE  NEW  SWITCH  CHECK 

DWT 

SDC  0 

DISPLAY  READY  SWITCH 

LAC  DWV 

GET  TRANSLATION  VALUE 

SNA 

SKIP  IF  TRANSLATION  PENDING 

JMP  XIS1 

RESUME  DISPLAY  *  RETURN 

DAC*  DVIHD 

STORE  DISPLACEMENT 

XOR  38000 

INVERT  SIGN  BIT 

DAC*  DWTL 

STORE  COUNTERDISPLACEMENT 

DZM  DWV 

INDICATE  TRANSLATION  PERFORMED 

JMP  XI  SI 

RESUME  DISPLAY  t  RETURN 

ILP 

LAC  DSS 

GET  DISPLAY  STATUS  WORD  1 

AND  «7 

GET  BREAK  FIELD 

SZA 

SKIP  IF  ZERO  BREAK  FIELD 

JMP  *♦ 5 

USER  FILE  INTERRUPT 

IOT  611 

READ  DISPLAY  ADDRESS 
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TAD 

*-XP 

SMA 

JMP 

XLP 

LAC 

DE*  t 

SZA 

JMP 

*♦3 

IOT 

72  A 

JMP 

IR 

LAC 

DPT 

JMS 

DS 

JMP 

*-4 

LAC 

DSS 

AND 

*7 

SNA 

JMP 

XIS 

IOT 

61 1 

XOR 

*10000 

SAD 

*D+  A 

JMS 

DWT 

LAC 

DE+1 

SZA 

JMP 

*♦5 

IOT 

61  1 

TAD 

*1 

IOT 

1605 

JMP 

IR 

LAC 

DSS 

LLS 

1  A 

AND 

*  70000 

IOT 

601 

DAC 

23 

LAC* 

'  23 

JMS 

DS 

JMP 

*-13 

SDC 

0 

AND 

*77777 

JMS 

TII 

DZM 

DE+1 

FORM  ADDRESS  CHECK 

SKIP  IF  USER  FILE  INTERRUPT 

TRACKING  INTERRUPT 

GET  DISPLAY  INT  ENABLE  SWITCH 

SKIP  IF  DISPLAY  INTERRUPTS  DISABLED 

GET  STATUS  FOR  USER 

RESUME  DISPLAY 

RETURN  FROM  INTERRUPT 

GET  ADDRESS  OF  SERVICE  TASK 

SCHEDULE  SERVICE  &  READ  STATUS 

RESUME  DISPLAY  «  RETURN 

GET  DISPLAY  STATUS  WORD  1 

GET  BREAK  FIELD 

SKIP  IF  USER  FILE  INTERRUPT 

TRACKING  INTERRUPT 

READ  DISPLAY  ADDRESS 

INTERPRET  WITH  BREAK  FIELD  I 

SKIP  IF  NOT  DISPLAY  SYNC  INTERRUPT 

SET  DISPLAY  READY  SWITCH 

GET  DISPLAY  INT  ENABLE  SWITCH 

SKIP  IF  DISPLAY  INTERRUPTS  DISABLED 

GET  STATUS  FOR  USER 

READ  DISPLAY  ADDRESS 

FORM  RESUME  ADDRESS 

RESUME  DISPLAY 

RETURN  FROM  INTERRUPT 

GET  DISPLAY  STATUS  WORD  1 

SHIFT  BREAK  FIELD  INTO  POSITION 

REMOVE  ALL  BUT  BREAK  FIELD 

FORM  DISPLAY  ADDRESS 

SAVE  TEMPORARILY 

GET  ADDRESS  OF  SERVICE  TASK 

SCHEDULE  SERVICE  «  READ  STATUS 

RESUME  DISPLAY  t  RETURN 


TRUNCATE  HIGH  ORDER  BITS 
SCHEDULE  SERVICE  TASK 
DISABLE  DISPLAY  INTERRUPTS 


A- 70 


LAC 

DSS 

GET  DISPLAY  STATUS  WORD  1 

DAC 

DSl 

SAVE 

IOT 

1632 

READ  STATUS  WORD  2 

DAC 

DS2 

SAVE 

IOT 

611 

READ  DISPLAY  ADDRESS 

DAC 

DSA 

SAVE 

IOT 

1612 

READ  Y  DISPLAY  COORDINATE 

DAC 

DSY 

SAVE 

IOT 

512 

READ  X  DISPLAY  COORDINATE 

DAC 

DSX 

SAVE 

IOT 

511 

READ  PUSH  DOWN  POINTER 

DAC 

DSP 

SAVE 

LAC 

•PDP1-1 

GET  ADDRESS  OF  PUSH  DOWN  LIST 

DAC 

10 

SET  AUTOINDEX  REGISTER 

LAC 

■PDP2-1 

GET  ADDRESS  OF  PUSH  DOWN  SAVE  AREA 

DAC 

1  1 

SET  AUTOINDEX  REGISTER 

LAC* 

10 

GET  WORD  FROM  PUSH  DOWN  LIST 

DAC* 

1 1 

STORE  IN  PUSH- DOWN  SAVE  AREA 

LAC 

10 

GET  SOURCE  POINTER 

SAD 

DSP 

SKIP  IF  NOT  END  OF  LIST 

JMP* 

DS 

RETURN 

JMP 

*-  5 

COPY  NEXT  WORD 

A-71 


STITLE 

TRACKING  CONTROLLER 

XI 

TAD  8 | 000 

AND  *  1 777 

DAC  XPY 

LAC  9 

TAD  >1000 

AND  81777 

XOR  84000 

DAC  XPX 

DZM  XP 

JMP*  X.I 

CONVERT  RELATIVE  TO  ORIGIN 
CONVERT  MODULO  2*10 

SET  Y  TRACKING  COORDINATE 
GET  X  COORDINATE 

CONVERT  RELATIVE  TO  ORIGIN 
CONVERT  MODULO  2*10 

SET  ESCAPE  BIT 

SET  X  TRACKING  COORDINATE 
ENABLE  TRACKING 

RETURN 

XR 

DZM  XP 

JMP*  X.R 

ENABLE  TRACKING 

RETURN 

XT 

LAW  3000 

DAC  XP 

JMP*  X.T 

GET  POP  INSTRUCTION 
TERMINATE  TRACKING 

RETURN 

XS 

LAW  3000 

SAD  XP 

ISZ  X.S 

JMP*  X.S 

GET  POP  INSTRUCTION 

SKIP  IF  TRACKING  ENABLED 
INDICATE  SUCCESS 

RETURN 

XY 

LAC  XPY 

TAD  8-1000 

JMP*  X.Y 

GET  Y  TRACKING  COORDINATE 
CONVERT  RELATIVE  TO  SCREEN 
RETURN 

CENTER 

XX 

LAC  XPX 

AND  81777 

TAD  s-1000 

JMP*  X.X 

GET  X  TRACKING  COORDINATE 
TRUNCATE  ESCAPE 

CONVERT  RELATIVE  TO  SCREEN 
RETURN 

CENTER 

XLP 

HLT 

HLT 

HLT 

JMP  **3 

AND  sl777 

DAC  XPY 

STATE  VARIABLE 

STATE  VARIABLE 

STATE  VARIABLE 

DO  NOT  CHANGE  Y  TRACKING  COORDINATE 
TRUNCATE  HIGH  ORDER  BITS 

SET  Y  TRACKING  COORDINATE 

A-72 


IOT  512 

READ  X  COORDINATE 

TAO  3*2000 

SUBTRACT  1024 

SHA 

SKIP  IF  COORDINATE  ON  SCREEN 

JHP  **4 

DO  NOT  CHANGE  X  COORDINATE 

AND  a  1777 

TRUNCATE  HIGH  ORDER  BITS 

XOR  «4000 

SET  ESCAPE  BIT 

DAC  XPX 

SET  X  TRACKING  COORDINATE 

LAW  XP 

GET  ADDRESS  OF  TRACKING  PATTERN 

IOT  1605 

RESTART  TRACKING  PROCESS 

JHP  IR 

RETURN  FROM  INTERRUPT 

XLP 1 

IOT  724 

RESUHE  DISPLAY 

JHP  IR 

RETURN 

XI  S 

IOT  611 

READ  DISPLAY  ADDRESS 

DAC  23 

SAVE  TEMPORARILY 

LAC*  23 

GET  ADDRESS  OF  SERVICE 

DAC  23 

SAVE  TEMPORARILY 

JHP*  23 

SERVICE  INTERRUPT 

XI  SI 

IOT  611 

READ  DISPLAY  ADDRESS 

TAD  si 

FORM  RESUME  ADDRESS 

IOT  1605 

RESUME  DISPLAY 

JMP  IR 

RETURN  FROM  INTERRUPT 

XI 

LAW  3000 

GET  POP  INSTRUCTION 

DAC  XPS 

INHIBIT  SEARCH  PATTERN 

LAC  3700512 

GET  IOT  512  INSTRUCTION 

DAC  XLP 

MODIFY  INTERRUPT  SERVICE 

LAC  340000+XL 

GET  DAC  XL  INSTRUCTION 

DAC  XLP* 1 

MODIFY  INTERRUPT  SERVICE 

LAC  *600000*XLP1 

GET  JMP  XLP1  INSTRUCTION 

DAC  XLP+2 

MODIFY  INTERRUPT  SERVICE 

DZM  XL 

CLEAR  LOW  COORDINATE 

DZM  XH 

CLEAR  HIGH  COORDINATE 

JHP  XI  SI 

RESUME  DISPLAY  *  RETURN 

X2 

LAC  ■ 40000+XH 

GET  DAC  XH  INSTRUCTION 

DAC  XLP+1 

MODIFY  INTERRUPT  SERVICE 

JHP  XISl 

RESUME  DISPLAY  4  RETURN 

X3 

LAC  XH 

GET  HIGH  COORDINATE 

A- 7  3 


X3I 


X4 


X41 


SNA 

SKIP  IF  VALID 

JMP 

X3I 

ENABLE  SEARCH  PATTERN 

TAD 

XL 

ADD  LOW  COORDINATE 

SAD 

XH 

SKIP  IF  VALID 

JMP 

X31 

ENABLE  SEARCH  PATTERN 

RCR 

DIVIDE  BY  2 

TAD 

*-2000 

SUBTRACT  1024 

SMA 

SKIP  IF  COORDINATE  ON  SCREEN 

JMP 

X31+2 

DO  NOT  CHANGE  X  COORDINATE 

AND 

*1777 

CONVERT  MODULO  2t|0 

XOR 

*4000 

SET  ESCAPE  BIT 

DAC 

XPX 

SET  X  TRACKING  COORDINATE 

JMP 

X31+2 

LEAVE  SEARCH  PATTERN  INHIBITED 

LAW 

777 

GET  SEARCH  ENABLE  WORD 

DAC 

XPS 

ENABLE  SEARCH  PATTERN 

DZM 

XL 

CLEAR  LOW  COORDINATE 

DZM 

XH 

CLEAR  HIGH  COORDINATE 

LAC 

*701612 

GET  IOT  1612  INSTRUCTION 

DAC 

XLP 

MODIFY  INTERRUPT  SERVICE 

LAC 

■40000+XL 

GET  DAC  XL  INSTRUCTION 

DAC 

XLP+1 

MODIFY  INTERRUPT  SERVICE 

JMP 

XIS1 

RESUME  DISPLAY  &  RETURN 

LAC 

XH 

GET  HIGH  COORDINATE 

SNA 

SKIP  IF  NOT  VALID 

JMP 

X41 

ENABLE  SEARCH  PATTERN 

TAD 

XL 

ADD  LOW  COORDINATE 

SAD 

XH 

SKIP  IF  VALID 

JMP 

X41 

ENABLE  SEARCH  PATTERN 

RCR 

DIVIDE  BY  2 

TAD 

*-2000 

SUBTRACT  1024 

SMA 

SKIP  IF  COORDINATE  ON  SCREEN 

JMP 

X41  +  2 

DO  NOT  CHANGE  Y  TRACKING  COORDINATE 

AND 

*1777 

CONVERT  MODULO  2*  10 

DAC 

XPY 

SET  Y  TRACKING  COORDINATE 

JMP 

X41+2 

LEAVE  SEARCH  PATTERN  INHIBITED 

LAW 

777 

GET  SEARCH  ENABLE  WORD 

DAC 

XPS 

ENABLE  SEARCH  PATTERN 

LAC 

XLP+7 

GET  TAD  *-2000  INSTRUCTION 

DAC 

XLP+1 

MODIFY  INTERRUPT  SERVICE 

LAC  *740100  GET  SMA  INSTRUCTION 

DAC  XLP+2  MODIFY  INTERRUPT  SERVICE 

JMP  XI  SI  RESUME  DISPLAY  «  RETURN 


LAW  3000 
DAC  XP 
JMP  XI SI 


GET  POP  INSTRUCTION 
DISABLE  TRACKING 
RESUME  DISPLAY  4  RETURN 
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JTITLE 


STRUCTURE  TOPOLOGY  OPERATORS 


STL  JMS  B4 

JMP*  S.TL 
DAC  TS 
TAD  *-l 
DAC  12 
LAW  0 
DAC*  12 
DAC*  12 
DAC*  12 
LAW  1121 
DAC*  12 
LAW  0 
DAC*  12 
LAW  4000 
DAC*  12 
LAW  2001 
DAC*  12 
JMS  B4 
JMP  STL1 
DAC*  12 
TAD  «-l 
DAC  12 
LAW  6240 
DAC*  12 
LAW  1400 
DAC*  12 
DZM*  12 
DZM*  12 
LAW  1121 
DAC*  12 
DZM*  12 
LAW  4000 
DAC*  12 
LAW  3000 
DAC*  12 
LAC  TS 
ISZ  S.TL 
JMP*  S.TL 


GET  8-WORD  BLOCK 

NOT  ENOUGH  STORAGE 

SAVE  ADDRESS  FOR  RETURN 

COMPUTE  INITIAL  INDEX  VALUE 

SET  AUTOINDEX  REGISTER 

GET  DISPLAY  NOP  INSTRUCTION 

STORE  IN  FIRST  LOCATION  IN  HEAD 

STORE  IN  SECOND  LOCATION  IN  HEAD 

STORE  IN  THIRD  LOCATION  IN  HEAD 

GET  VEC  INSTRUCTION 

STORE  IN  FOURTH  LOCATION  IN  HEAD 

GET  DISPLAY  NOP  INSTRUCTION 

STORE  IN  FIFTH  LOCAlION  IN  HEAD 

GET  ZERO  X  COORD  WITH  ESCAPE  BIT 

STORE  IN  SIXTH  LOCATION  IN  HEAD 

GET  JUMP1  INSTRUCTION 

STORE  IN  SEVENTH  LOCATION  IN  HEAD 

GET  8- WORD  BLOCK 

NOT  ENOUGH  STORAGE 

STORE  ADDRESS  OF  TAIL  IN  HEAD 

COMPUTE  INITIAL  INDEX  VALUE 

SET  AUTOINDEX  REGISTER 

GET  UNCONDITIONAL  DISPLAY  SKIP 

STORE  IN  FIRST  LOCATION  IN  TAIL 

GET  INTERNAL  STOP  INSTRUCTION 

STORE  IN  SECOND  LOCATION  IN  TAIL 

ZERO  IN  THIRD  LOCATION  IN  TAIL 

STORE  DISPLAY  NOP  IN  FOURTH  LOCATION 

GET  VEC  INSTRUCTION 

STORE  IN  FIFTH  LOC  IN  TAIL 

STORE  IN  SIXTH  LOC  IN  TAIL 

GET  ZERO  X  COORD  WITH  ESCAPE  BIT 

STORE  IN  SEVENTH  LOCATION  IN  TAIL 

GET  POP  INSTRUCTION 

STORE  IN  EIGHTH  LOC  IN  TAIL 

GET  ADDRESS  OF  CREATED  LEVEL 

INDICATE  SUCCESS 

RETURN 
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STL  1 

DZM*  T5 

FREE  FIRST  4-  WORD  BLOCK  IN  HEAD 

LAC  » 

GET  ADDRESS  OF  8- WORD  BLOCK 

TAD  - 

FORM  ADDRESS  OF  SECOND  A- WORD  BLOCK 

DAC  T5 

SAVE  TEMPORARILY 

DZM*  T5 

FREE  SECOND  4- WORD  BLOCK  IN  HEAD 

JMP*  S.TL 

FAILURE  RETURN 

STD 

SAD  *DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JMP  STD1 

HIGHEST  ACTIVE  LEVEL 

DAC  T1 

SAVE  ADDRESS  OF  FIRST  HEAD  BLOCK 

TAD  *4 

FORM  ADDRESS  OF  SECOND  HEAD  BLOCK 

DAC  T2 

SAVE  ADDRESS  OF  SECOND  HEAD  BLOCK 

TAD  *3 

FORM  POINTER  TO  LAST  LOC  IN  HEAD 

DAC  T3 

SAVE  TEMPORARILY 

LAC*  T3 

GET  ADDRESS  OF  TAIL  (OR  NODE) 

DAC  T3 

SAVE  ADDRESS  OF  TAIL  (OR  NODE) 

TAD  *4 

FORM  ADDRESS  OF  SECOND  TAIL  BLOCK 

DAC  T 4 

SAVE 

LAC*  T3 

GET  FIRST  WORD  OF  TAIL  (OR  NODE) 

AND  *777770 

TRUNCATE  BREAK  FIELD 

SAD  *762010 

SKIP  IF  NOT  NODE 

JMP*  S.TD 

LEVEL  NOT  EMPTY 

DZM*  T1 

RELEASE  FIRST  HEAD  BLOCK 

DZM*  T2 

RELEASE  SECOND  HEAD  BLOCK 

DZM*  T3 

RELEASE  FIRST  TAIL  BLOCK 

DZM*  T4 

RELEASE  SECOND  TAIL  BLOCK 

STD1 

ISZ  S.TD 

INDICATE  SUCCESS 

JMP*  S.TD 

RETURN 

STI 

TAD  *7 

FORM  POINTER  TO  LAST  LOC  IN  HEAD 

DAC  T5 

SAVE 

JMS  B3 

CREATE  4-WORD  BLOCK 

JMP*  S.TI 

NOT  ENOUGH  STORAGE 

DAC  T1 

SET  POINTER  TO  BLOCK 

TAD  *-l 

COMPUTE  INITIAL  INDEX  VALUE 

DAC  12 

SET  AUTOINDEX  REGISTER 

LLS  6 

SHIFT  BREAK  FIELD  INTO  AC 

AND  *7 

TRUNCATE  HIGH  ORDER  BITS 

XOR  *762010 

FORM  PUSH  JUMP  INSTRUCTION 

DAC*  12 

STORE  IN  FIRST  LOC  IN  BLOCK 
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AND  *7 
LLS  14 
DAO  12 
LAW  2001 
DAC*  12 
LAC*  T5 
DAC*  12 
LAC  T1 
DAC*  T5 
ISZ  S.TI 
JMP*  S.TI 


TRUNCATE  HIGH  ORDER  BITS 

GET  COMPLETE  ADDRESS 

STORE  IN  SECOND  LOC  IN  BLOCK 

GET  JUMP1  INSTRUCTION 

STORE  IN  THIRD  LOC  IN  BLOCK 

GET  ADR  OF  FIRST  ELEMENT  IN  LEVEL 

STORE  AS  SUCCESSOR  TO  NEW  NODE 

GET  ADDRESS  OF  NEW  NODE 

INSERT  NEW  NODE  INTO  LEVEL 

INDICATE  SUCCESS 

RETURN 


STR  JMS  TV 

SDC  S.TR 
SDC  0 
TAD  *7 
DAC  T1 
LAC*  T1 
DAC  T2 
DAC  STR2 
LAC*  T2 
AND  *777770 
SAD  *762010 
SKP 

JMP  STR1+7 
ISZ  T2 
LACO 
SAD*  T2 
JMP  STR1 
LAC  T2 
TAD  *2 
JMP  STR+4 
STR  1  I SZ  T2 
ISZ  T2 
LAC*  T2 
DAC*  T1 
JMS  DW 
DZM*  STR2 
ISZ  STR+2 
JMS  T.U 


PROTECT  AGAINST  REENTRY 


GET  POINTER  TO  END  OF  HEAD 

SAVE  TEMPORARILY 

GET  ADDRESS  OF  FIRST  ELEMENT 

SAVE  TEMPORARILY 

SAVE  ADDRESS  FOR  REMOVAL 

GET  FIRST  WORD  OF  FIRST  ELEMENT 

TRUNCATE  BREAK  FIELD 

SKIP  IF  NOT  NODE 

NODE 

SUBSTRUCTURE  NOT  IN  LEVEL 

FORM  POINTER  TO  ADR  OF  SUBSTRUCTURE 

GET  ADDRESS  OF  GIVEN  SUBSTRUCTURE 

SKIP  IF  NO  MATCH 

SUBSTRUCTURE  FOUND 

GET  POINTER  TO  ADR  OF  SUBSTRUCTURE 

FORM  POINTER  TO  END  OF  NODE 

TRY  NEXT  NODE 

INCREMENT  POINTER  TO  LOC  IN  NODE 
INCREMENT  POINTER  TO  LOC  IN  NODE 
GET  ADR  OF  SUCCESSOR  TO  NODE 
STORE  IN  PREVIOUS  NODE  (OR  HEAD) 
WAIT  FOR  DISPLAY  TO  SETTLE  DOWN 
RELEASE  NODE  TO  FREE  STORAGE 
INDICATE  SUCCESS 
UNLOCK  S.TRD 
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STITLE 

LEVEL  MODIFICATION  OPERATORS 

SLH 

LAC  -DHAL 

GET  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

JHP*  S.LH 

RETURN 

SLY 

JHS  TV 

PROTECT  AGAINST  REENTRY 

SDC  S.LY 

SDC  0 

SAD  -DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JMP  SLY  IO 

RETURN 

TAD  «4 

FORM  POINTER  TO  Y  COORD  IN  HEAD 

DAC  DWHD 

SAVE 

TAD  *3 

FORM  POINTER  TO  END  OF  HEAD 

JMS  SLT 

GET  ADDRESS  OF  TAIL 

TAD  *5 

FORM  POINTER  TO  Y  COORD  IN  TAIL 

DAC  DWTL 

SAVE 

LA  CO 

GET  Y  INCREMENT 

JMS  C.BC 

CONVERT  TO  DISPLAY  COORDINATE 

XOR  *7 60000 

INDICATE  STORAGE  OCCUPIED 

DAC  DWV 

SAVE  TRANSLATION  VALUE 

SLY  1 

LAC  DWV 

GET  TRANSLATION  VALUE 

SZA 

SKIP  IF  TRANSLATION  COMPLETE 

JMP  **4 

RESCHEDULE  COMPLETION  CHECK 

JMS  T.U 

UNLOCK  S.LY 

SDC  SLY 

JMP  SLY! 

CHECK  FOR  TRANSLATION  COMPLETE 

JMS  T.P 

SCHEDULE  COMPLETION  CHECK 

SLX 

JMS  TV 

PROTECT  AGAINST  REENTRY 

SDC  S.LX 

SDC  0 

SAD  "DHAL 

SKIP  IF  NOT  HI6HEST  ACTIVE  LEVEL 

JMP  SLX 1*3 

RETURN 

TAD  «5 

FORM  POINTER  TO  X  COORD  IN  HEAD 

DAC  DWHD 

SAVE 

TAD  •£ 

FORM  POINTER  TO  END  OF  HEAD 

JMS  SLT 

GET  ADDRESS  OF  TAIL 

TAD  *6 

FORM  POINTER  TO  X  COORE  IN  TAIL 

DAC  DWTL 

SAVE 

LACO 

GET  X  INCREMENT 
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SLX1 


SLP 


SLBE 


SLBD 


JMS  c.bc 

CONVERT  TO  DISPLAY  COORDINATE 

XOR  *4000 

SET  ESCAPE  BIT 

DAC  DWV 

SAVE  TRANSLATION  VALUE 

LAC  DWV 

GET  TRANSLATION  VALUE 

SZA 

SKIP  IF  TRANSLATION  COMPLETE 

JMP  **4 

RESCHEDULE  COMPLETION  CHECK 

JMS  T.U 

UNLOCK  S.LX 

SDC  SLX 

JMP  SLX! 

CHECK  FOR  TRANSLATION  COMPLETE 

JMS  T.P 

SCHEDULE  COMPLETION  CHECK 

SAD  *DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JMP*  S.LP 

RETURN 

TAD  *2 

GET  ADDRESS  OF  PARAMETER  SLOT 

DAC  Tl 

SAVE  TEMPORARILY 

LACQ 

GET  PARAMETERS 

AND  *777 

TRUNCATE  HIGH  ORDER  BITS 

DAC*  Tl 

STORE  PARAMETERS  IN  LEVEL 

JMP*  S.LP 

RETURN 

SAD  *DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JMP*  S.LBE 

RETURN 

TAD  *1 

FORM  POINTER  TO  COUNT  SLOT 

DAC  T2 

SAVE  TEMPORARILY 

TAD  *6 

FORM  POINTER  TO  END  OF  HEAD 

JMS  SLT 

GET  ADDRESS  OF  TAIL 

TAD  *3 

FORM  POINTER  TO  BLINK  OFF  SLOT 

DAC  Tl 

SAVE  TEMPORARILY 

LAW  6301 

GET  BLINK  OFF  INSTRUCTION 

DAC*  Tl 

STORE  IN  TAIL 

LAC*  T2 

GET  COUNT  INSTRUCTION 

AND  *74 

GET  COUNT  BITS 

TAD  *6302 

FORM  NEW  COUNT  INSTRUCTION 

DAC*  T2 

STORE  NEW  COUNT  INSTRUCTION 

JMP*  S.LBE 

RETURN 

SAD  *DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JMP*  S.LBD 

RETURN 

TAD  *1 

FORM  POINTER  TO  COUNT  SLOT 

DAC  T2 

SAVE  TEMPORARILY 

A- 81 


SLC 


SLU 


SLS 


SLL 


TAD  *6 

FORM  POINTER  TO  END  OF  HEAD 

JMS  SLT 

GET  ADDRESS  OF  TAIL 

TAD  *3 

FORM  POINTER  TO  BLINK  OFF  SLOT 

DAC  T1 

SAVE  TEMPORARILY 

LAC*  T2 

GET  COUNT  INSTRUCTION 

AND  *777774 

FORM  NEW  COUNT  INSTRUCTION 

DAC*  T2 

STORE  NEW  COUNT  INSTRUCTION 

OZM*  Tl 

REMOVE  BLINK  OFF  INSTRUCTION 

JHP*  S.LBD 

RETURN 

SAD  *DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JHP*  S.LC 

RETURN 

TAD  *1 

FORM  POINTER  TO  COUNT  SLOT 

DAC  Tl 

SAVE  TEMPORARILY 

LAC*  Tl 

GET  COUNT  INSTRUCTION 

AND  *2 

GET  BLINK  BIT 

DAC  T2 

SAVE  TEMPORARILY 

LACO 

GET  COUNT  BITS 

AND  *74 

TRUNCATE  OTHER  BITS 

XOR  T2 

CONCATENATE  COUNT  BITS  «  BLINK  BIT 

XOR  *6300 

FORM  NEW  COUNT  INSTRUCTION 

DAC*  Tl 

STORE  NEW  COUNT  INSTRUCTION 

JHP*  S.LC 

RETURN 

SAD  *DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JHP*  S.LU 

RETURN 

JMS  S.LN 

REMOVE  INTERRUPT  AT  END  OF  LEVEL 

DAC*  Tl 

REMOVE  SKIP  INSTRUCTION  FROM  TAIL 

JHP*  S.LU 

return 

SAD  *DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JHP*  S.LS 

RETURN 

JMS  S.LN 

REMOVE  INTERRUPT  AT  END  OF  LEVEL 

LAW  6220 

GET  SKIP-IF-OFF-SCREEN  INSTRUCTION 

DAC*  Tl 

STORE  IN  TAIL 

JHP*  S.LS 

RETURN 

SAD  »DHAL 

SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 

JMP*  S.LL 

RETURN 

JMS  SLSP 

REMOVE  INTERRUPT  FROM  END  OF  LEVEL 
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LAW  6201 
DAC*  T2 
LAW  6202 
DAC*  T1 
JMP*  S.LL 


GET  LPS1  CLEAR  INSTRUCTION 
STORE  IN  HEAD 

GET  SKIP-ON-NO-LPSI  INSTRUCTION 

STORE  IN  TAIL 

RETURN 


SLN  SAD  *DHAL 
JMP*  S.LN 
JMS  SLSP 
LAW  0 
DAC*  T2 
JMP*  S.LN 


SKIP  IF  NOT  HIGHEST  ACTIVE  LEVEL 
RETURN 

REMOVE  INTERRUPT  AT  END  OF  LEVEL 
GET  DISPLAY  NOP  INSTRUCTION 
REMOVE  LPSI  CLEAR 
RETURN 


SLT  SDC  0 
DAC  T1 
LAC*  T1 
DAC  T1 
LAC*  T1 
AND  *777770 
SAD  *762010 
JMP  **3 
LAC  T1 
JMP*  SLT 
LAC  T1 
TAD  *3 
JMP  SLT*  1 


STORE  POINTER  TO  END  OF  BLOCK 
GET  POINTER  TO  NEXT  NODE  (OR  TAIL) 
SAVE  TEMPORARILY 

GET  FIRST  WORD  FROM  NODE  (OR  TAIL) 

TRUNCATE  BREAK  FIELD 

SKIP  IF  NOT  NODE 

TAIL  NOT  FOUND 

GET  ADDRESS  OF  TAIL 

RETURN 

GET  POINTER  TO  NODE 

FORM  POINTER  TO  END  OF  NODE 

LOOK  AT  NEXT  NODE  (OR  TAIL) 


SLSP  SDC  0 
DAC  T2 
TAD  *7 
JMS  SLT 
TAD  *2 
DAC  T3 
LAW  62 40 
DAC*  T1 
LACO 
DAC*  T3 
JMP*  SLSP 


SAVE  ADDRESS  OF  LEVEL 

FORM  POINTER  TO  END  OF  HEAD 

GET  ADDRESS  OF  TAIL 

FORM  POINTER  TO  TASK  ADDRESS 

SAVE  TEMPORARILY 

GET  SKIP  INSTRUCTION 

STORE  IN  TAIL 

GET  NEW  SERVICE  TASK  ADDRESS 

STORE  IN  TAIL 

RETURN 
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STITLE 


TEXT  OPERATORS 


LT  DAC  LT2 

LAC*  LT2 
CMA 

DAC  LT3 
ISZ  LT3 
SKP 

JHP*  L.T 
LT1  ISZ  LT2 

LAC*  LT2 
JMS  B.T 
ISZ  LT3 
JMP  LT1 
JMP*  L.T 


SAVE  ADDRESS  OF  TEXT  LIST 

GET  TEXT  WORD  COUNT 

FORM  1*S  COMPLEMENT 

STORE  COMPLEMENTED  WORD  COUNT 

FORM  2 *S  COMPLEMENT  OF  WORD  COUNT 

WORD  COUNT  NOT  ZERO 

RETURN 

SET  POINTER  TO  NEXT  TEXT  WORD 

GET  TEXT  WORD 

SEND  TO  TELEPRINTER  BUFFER 

INCREMENT  COUNT  *  SKIP  IF  DONE 

PROCESS  NEXT  TEXT  WORD 

RETURN 


LD  DAC  T5 

DAC  T! 
LAC*  T1 
CMA 

DAC  T2 
LAC  *7 
DAC  T3 
ISZ  T2 
SKP 

JMP  LD4 
LD1  ISZ  T1 

LAC*  T1 
LRS  14 
JMS  LD5 
JMS  LD5 
JMS  LDS 
ISZ  T2 
JMP  LD1 
LAC  T3 
RCR 
RCR 
JMS  B 
JMP*  »..D 
DAC  T 1 


SAVE  ADDRESS  OF  TEXT  LIST 

SET  POINTER  TO  TEXT  LIST 

GET  WORD  COUNT 

FORM  1*S  COMPLEMENT 

STORE  COMPLEMENTED  WORD  COUNT 

GET  INITIAL  VALUE  OF  LEAF  LENGTH 

SET  INITIAL  VALUE  OF  LEAF  LENGTH 

FORM  2  *S  COMPLEMENT  OF  WORD  COUNT 

WORD  COUNT  NOT  ZERO 

RETURN  NULL  TEXT  LEAF 

SET  POINTER  TO  NEXT  TEXT  WORD 

GET  TEXT  WORD 

SHIFT  FIRST  CHARACTER  INTO  POSITION 

MODIFY  LEAF  LENGTH  COUNT 

MODIFY  LEAF  LENGTH  COUNT 

MODIFY  LEAF  LENGTH  COUNT 

INCREMENT  WORD  COUNT  i  SKIP  IF  DONE 

PROCESS  NEXT  TEXT  WORD 

GET  SIZE  OF  TEXT  LEAF 

DIVIDE  BY  2 

DIVIDE  BY  2 

GET  STORAGE  FOR  TEXT  LEAF 

NOT  ENOUGH  STORAGE 

SAVE  ADDRESS  OF  TEXT  LEAF  AREA 
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DAC  T  6 

SAVE  ADDRESS  FOR  RETURN 

LAC*  T5 

GET  WORD  COUNT 

CMA 

FORM  t*S  COMPLEMENT 

TAD  -1 

FORM  2 ' S  COMPLEMENT 

DAC  T2 

STORE  COMPLEMENTED  WORD  COUNT 

DZM  T3 

CLEAR  HORIZONTAL  COUNT 

DZM  T4 

CLEAR  VERTICAL  COUNT 

LD2 

ISZ  TS 

SET  POINTER  TO  NEXT  TEXT  WORD 

LAC*  T5 

GET  NEXT  TEXT  WORD 

LRS  14 

SHIFT  FIRST  CHARACTER  INTO  POSITION 

JMS  LD6 

PUT  FIRST  CHARACTER  INTO  LEAF 

JMS  LD6 

PUT  SECOND  CHARACTER  INTO  LEAF 

JMS  LD6 

PUT  THIRD  CHARACTER  INTO  LEAF 

ISZ  T2 

INCREMENT  COUNT  «  SKIP  IF  DONE 

JMP  LD2 

PROCESS  NEXT  TEXT  WORD 

LAW  1121 

GET  VEC  INSTRUCTION 

DAC*  T1 

STORE  IN  TEXT  LEAF 

ISZ  T1 

INCREMENT  POINTER  TO  LOC  IN  LEAF 

LAC  T4 

GET  VERTICAL  COUNT 

CLO 

PREPARE  TO  SHIFT  ZEROS  INTO  AC 

LLS  4 

MULTIPLY  BY  16 

XOR  *400000 

SET  TO  NONZERO  VALUE 

DAC*  T1 

STORE  IN  TEXT  LEAF 

ISZ  T1 

INCREMENT  POINTER  TO  LOC  IN  LEAF 

LAC  T3 

GET  HORIZONTAL  COUNT 

LLS  3 

MULTIPLY  BY  8 

AND  *1777 

CONVERT  MODULO  2*10 

XOR  -6000 

SET  ESCAPE  BIT  t  MINUS  SIGN 

DAC*  T1 

STORE  IN  TEXT  LEAF 

ISZ  T1 

INCREMENT  POINTER  TO  LOC  IN  LEAF 

LD3 

LAW  3000 

GET  POP  INSTRUCTION 

DAC*  T1 

STORE  IN  TEXT  LEAF 

LAC  T6 

GET  ADDRESS  OF  TEXT  LEAF 

ISZ  L*D 

INDICATE  SUCCESS 

JMP*  L*D 

RETURN 

LD4 

LAC  -LD3 

GET  ADDRESS  OF  POP  INSTRUCTION 

JMP  *-3 

INDICATE  SUCCESS  «  RETURN 

LD5 

SDC  0 

AND  *77 

TRUNCATE  HIGH  ORDER  BITS 
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SAD  *77  SKIP  IP  NOT  NULL  CHARACTER 

JMP  •♦S  NULL  CHARACTER  —  RETURN 

SAD  *74  SKIP  IF  NOT  CARRIAGE  RETURN 

ISZ  T3  INCREMENT  LEAF  SIZE  EXTRA  TIME 

ISZ  T3  INCREMENT  LEAF  SIZE 

ISZ  T3  INCREMENT  LEAF  SIZE 

LLS  6  SHIFT  NEXT  CHARACTER  INTO  POSITION 

JMP*  LDS  RETURN 


LD6  SDC  0 

AND  *77 
SAD  *77 
JMP  LD7-2 
SAD  *74 
JMP  LD7 
SAD  *75 
SKP 

JMP  **3 
ISZ  T4 
SKP 

ISZ  T3 
TAD  *LD8 
DAC  T7 
LAW  2010 
DAC*  T1 
ISZ  T1 
LAC*  T7 
DAC*  T1 
ISZ  T1 
LLS  6 
JMP*  LD6 
LD7  LACO 

DAC  T7 
LAW  1121 
DAC*  T1 
ISZ  T1 
LAW  0 
DAC*  T1 
ISZ  T1 
LAC  T3 


TRUNCATE  HIGH  ORDER  BITS 

SKIP  IF  NOT  NULL  CHARACTER 

NULL  CHARACTER  --  RETURN 

SKIP  IF  NOT  CARRIAGE  RETURN 

PUT  CARRIAGE  RETURN  INTO  LEAF 

SKIP  IF  NOT  LINE  FEED 

LINE  FEED  ->  INCREMENT  VERT  COUNT 

NORMAL  CHARACTER 

INCREMENT  VERTICAL  COUNT 

LEAVE  HORIZONTAL  COUNT  ALONE 

INCREMENT  HORIZONTAL  COUNT 

ADD  ADDRESS  OF  CONVERSION  TABLE 

SAVE  TEMPORARILY 

GET  PUSH  JUMP  INSTRUCTION 

STORE  IN  TEXT  LEAF 

INCREMENT  POINTER  TO  LOC  IN  LEAF 

GET  ADDRESS  OF  DISPLAY  FOR  CHAR 

STORE  IN  TEXT  LEAF 

INCREMENT  POINTER  TO  LOC  IN  LEAF 

SHIFT  NEXT  CHARACTER  INTO  POSITION 

RETURN 

GET  MO  CONTENTS 

SAVE  TEMPORARILY 

GET  VEC  INSTRUCTION 

STORE  IN  TEXT  LEAF 

INCREMENT  POINTER  TO  LOC  IN  LEAF 

GET  ZERO  Y  DISPLACEMENT 

STORE  ZERO  Y  DISPLACEMENT  IN  LEAF 

INCREMENT  POINTER  TO  LX  IN  LEAF 

GET  HORIZONTAL  DISPLACEMENT 
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CL6 
LLS  3 
AND  *1777 
XOR  *6000 
DAO  T1 
1SZ  T1 
DZM  T3 
LAC  T7 
LRS  14 
JMP*  LD6 


PREPARE  TO  SHIFT  ZEROS  INTO  AC 

MULTIPLY  BY  8 

CONVERT  MODULO  2*10 

SET  ESCAPE  BIT  6  MINUS  SIGN 

STORE  IN  TEXT  LEAF 

INCREMENT  POINTER  TO  LOC  IN  LEAF 

CLEAR  HORIZONTAL  COUNT 

GET  PREVIOUS  MO  CONTENTS 

SHIFT  NEXT  CHARACTER  INTO  POSITION 

RETURN 


LL  DAC  Tl 
LAC*  Tl 
DZM*  Tl 
SAD  *763000 
JMP*  L*L 
ISZ  Tl 
JMP  LL* 1 


STORE  ADDRESS  OF  TEXT  LEAF 
6ET  VALUE  FROM  LEAF 
FREE  STORAGE  LOCATION 
SKIP  IF  NOT  END  OF  TEXT  LEAF 
RETURN 

SET  POINTER  TO  NEXT  LOC  IN  LEAF 
FREE  NEXT  LOCATION 


LD8  SDC  D00 

SDC  001*10000 
SDC  002*20000 
SDC  003*30000 
SDC  004*40000 
SDC  005*50000 
SDC  006*60000 
SDC  007*70000 
SDC  010*100000 
SDC  011*110000 
SDC  D12*|20000 
SDC  013*130000 
SDC  014*140000 
SDC  015*150000 
SDC  016*160000 
SDC  017*170000 
SDC  020*200000 
SDC  021*210000 
SDC  022*220000 
SDC  023*230000 
SDC  024*240000 


SDC  025*250000 
SDC  026*260000 
SDC  027*270000 
SDC  030*300000 
SDC  031*310000 
SOC  032*320000 
SOC  D33*330000 
SDC  D34+340000 
SDC  035*350000 
SDC  03  6*360000 
SDC  037*370000 
SDC  040*400000 
SOC  041*410000 
SOC  042*420000 
SOC  D43* 430000 
SDC  044*440000 
SDC  045*450000 
SDC  046*460000 
SDC  047*470000 
SDC  050*500000 
SDC  051 *S10000 
SDC  052*520000 
SOC  053*530000 
SDC  DS4*540000 
SDC  DSS*SS0000 
SDC  056*560000 
SDC  D57+570000 
SOC  D60* 600000 
SDC  061*610000 
SDC  062*620000 
SDC  D 63* 630000 
SDC  064*640000 
SDC  D6S*6S0000 
SDC  066*660000 
SDC  067*670000 
SDC  070*700000 
SDC  071*710000 
SDC  072*720000 
SOC  073*730000 
NOP 


SOC  D7 5+7  50000 
SDC  07  6+7  60000 
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STITLE 

IDLE- TIME  TASK 

IDLE 

LAW  1  7  47  5 

GET  CARRIAGE  RETURN#  LINE  FEED  CODE 

JMS  B.T 

TYPE  CARRIAGE  RETURN#  LINE  FEED 

LAW  10 

GET  TELEPRINTER  ALLOCATION  MASK 

JMS  T.R 

RELEASE  TELEPRINTER 

JMS  B»K 

GET  KEYBOARD  CHARACTER 

DAC  T3 

SAVE  KEYBOARD  CHARACTER 

LAW  10 

GET  TELEPRINTER  ALLOCATION  MASK 

JMS  T*A 

ALLOCATE  TELEPRINTER 

LAC  BKF 

GET  ASCII  FORM  OF  CHARACTER 

SAD  *205 

SKIP  IF  NOT  ENQUIRY 

JMP  TTY 4 

SEND  ENQUIRY  RECORD 

LAC  T3 

GET  KEYBOARD  CHARACTER 

SAD  *14 

SKIP  IF  NOT  C 

LAC  * IDLEC 

GET  "CLEAR"  RESPONSE  POINTER 

SAD  *33 

SKIP  IF  NOT  R 

LAC  * IDLER 

GET  "RUN"  RESPONSE  POINTER 

SAD  *34 

SKIP  IF  NOT  S 

LAC  *  IDLES 

GET  "SCHEDULE"  RESPONSE  POINTER 

SAD  *72 

SKIP  IF  NOT  » 

LAC  *1 DLE1 

GET  TTY/201  RESPONSE  POINTER 

SAD  *17 

SKIP  IF  NOT  F 

LAC  -IDLEF 

GET  "FROM"  RESPONSE  POINTER 

DAC  T3 

SAVE  SELECTED  RESPONSE  POINTER 

AND  *777700 

TRUNCATE  LOW  ORDER  BITS 

SNA 

SKIP  IF  LEGAL  COMMAND 

JMP  IDLED 

CANCEL  COMMAND 

LAC  T3 

GET  RESPONSE  POINTER 

TAD  =1 

COMPUTE  ADDRESS  OF  TEXT  LIST 

JMS  L«T 

TYPE  TEXT  LIST 

LAC*  T3 

GET  ADDRESS  OF  RESPONSE 

DAC  T3 

SAVE  TEMPORARILY 

JMP*  T3 

EXECUTE  RESPONSE 

IDLED 

LAC  *657475 

GET  QUESTION  MARK  CODE 

JMP  IDLE+1 

TYPE  l  GET  NEW  COMMAND 

IDLEC 

SDC  CLEAR 

SDC  2 
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STEXT  “CLEAR  " 

IDLER 

SDC 

RUN 

SDC 

2 

STEXT  “RUN” 

SDC 

747575 

IDLES 

SDC 

SCHED 

SDC 

3 

STEXT  “SCHEDULE  “ 

IDLEI 

SDC 

TTY20I 

SDC 

0 

IDLEF 

SDC 

FROM 

SDC 

2 

STEXT  “FROM  “ 

CLEAR 

JMS 

B.K 

GET  KEYBOARD  CHARACTER 

SAD 

■  1  5 

SKIP  IF  NOT  D 

JMP 

CLEAR! 

CLEAR  DISPLAY  STORAGE 

SAD 

*35 

SKIP  IF  NOT  T 

SKP 

CLEAR  TASK  QUEUE 

JMP 

IDLEQ 

CANCEL  COMMAND 

LAC 

=CLEART 

GET  ADDRESS  OF  TEXT  LIST 

JMS 

L.T 

TYPE  TEXT  LIST 

LAC 

•SCHEDQ 

GET  ADDRESS  OF  FROZEN  TASK  QUEUE 

JMS 

Q.C 

CLEAR  FROZEN  TASK  QUEUE 

JMP 

IDLE 

GET  NEW  COMMAND 

CLEAR! 

LAC 

aCLEARD 

GET  ADDRESS  OF  TEXT  LIST 

JMS 

L.T 

TYPE  TEXT  LIST 

JMS 

STC 

CLEAR  DISPLAY  STORAGE 

DZM 

25 

INDICATE  NO  DIAGNOSTIC 

JMP 

El 

RE-ESTABLISH  DISPLAYED  TITLE 

CLEARD 

SDC 

5 

STEXT  "DISPLAY  STORAGE" 

CLEART 

SDC 

A 

STEXT  “TASK  QUEUE" 

RUN 

LAW 

10 

GET  TELEPRINTER  MASK 

JMS 

T.R 

RELEASE  TELEPRINTER 

JMS 

STC 

CLEAR  DISPLAY  STORAGE 
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RUN  1 

LAC 

■SCHEDQ 

GET  ADDRESS  OF  FROZEN  TASK  QUEUE 

JMS 

Q.F 

GET  TASK  FROM  FROZEN  TASK  QUEUE 

JMS 

T.F 

TERMINATE  IDLE- TIME  EXECUTION 

JMS 

T.S 

SCHEDULE  TASK  FROM  FROZEN  QUEUE 

JMP 

RUN! 

ENABLE  NEXT  TASK 

SCHED 

JMS 

OCTAL5 

GET  ADDRESS  FROM  KEYBOARD 

JMP 

1DLEQ 

CANCEL  COMMAND 

LMO 

SET  UP  PARAMETER 

LAC 

■SCHEDQ 

GET  ADDRESS  OF  FROZEN  TASK  QUEUE 

JMS 

Q.A 

ADD  TASK  TO  FROZEN  QUEUE 

SKP 

TYPE  DIAGNOSTIC 

JMP 

IDLE 

GET  NEW  COMMAND 

LAC 

■SCHED! 

GET  ADDRESS  OF  TEXT  LIST 

JMS 

L.T 

TYPE  TEXT  LIST 

JMP 

IDLE 

GET  NEW  COMMAND 

SCHEDI 

SDC 

1  1 

STEXT  **  --  NO  ROOM 

FOR  THIS  TASK" 

SCHEDQ 

SDC 

*  +  37 

SDC 

♦  ♦36 

SDC 

*♦35 

SORG  *  +  35 

TTY20 1 

LAW 

17772 

GET  #  CODE 

JMS 

B.T 

TYPE  # 

JMS 

ECHO 

ECHO  KEYBOARD  CHARACTER 

LAC 

BKF 

GET  ASCII  FORM  OF  CHARACTER 

SAD 

■215 

SKIP  IF  NOT  CARRIAGE  RETURN 

JMP 

TTY! 

terminate  record  with  etx 

SAD 

■  337 

SKIP  IF  NOT  BACK  ARROW 

JMP 

TTY2 

DELETE  CHARACTER 

SAD 

■377 

SKIP  IF  NOT  RUBOUT 

JMP 

TTY3 

CLEAR  201  OUTPUT  BUFFER 

JMS 

B.FO 

SEND  CHARACTER  TO  20!  OUTPUT  BUFFER 

SKP 

DATA  SET  NOT  CONNECTED 

JMP 

TTY201+2 

PROCESS  NEXT  CHARACTER 

LAC 

■  TTY  5 

GET  ADDRESS  OF  TEXT  LIST 

JMS 

L.T 

TYPE  DIAGNOSTIC 

r* 
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JMP 

IDLE 

GET  NEW  COMMAND 

TTY  1 

LAW 

BFETX 

GET  END  OF  TEXT  CHARACTER 

JMS 

B.FO 

SEND  TO  201  OUTPUT  BUFFER 

JMP 

*-  5 

DATA  SET  NOT  CONNECTED 

JMP 

IDLE 

GET  NEW  COMMAND 

TTY2 

LAC 

*BFOB 

GET  ADDRESS  OF  OUTPUT  BUFFER 

SAD 

BFOI 

SKIP  IF  BUFFER  NON-EMPTY 

JMP 

TTY20 1 *2 

IGNORE  CHARACTER  DELETE 

JMS 

B.FO 

WAIT  FOR  ACK  TO  LAST  RECORD 

JMP 

TTY  1-3 

DATA  SET  NOT  CONNECTED 

LAW 

-2 

LOAD  AC  WITH  -2 

TAD 

BFOI 

COMPUTE  NEW  VALUE  OF  INPUT  POINTER 

OAC 

BFOI 

BACKSPACE  OUTPUT  BUFFER 

JMP 

TTY20 1 *2 

PROCESS  NEXT  CHARACTER 

TTY3 

JMS 

B.FO 

WAIT  FOR  ACK  TO  LAST  RECORD 

NOP 

DATA  SET  NOT  CONNECTED 

LAC 

*BFOB 

GET  ADDRESS  OF  201  OUTPUT  BUFFER 

OAC 

BFOI 

RESET  INPUT  POINTER 

LAC 

*TTY6 

GET  ADDRESS  OF  TEXT  LIST 

JMS 

L.T 

TYPE  DIAGNOSTIC 

JMP 

IDLE 

GET  NEW  COMMAND 

TTY  4 

LAW 

BFENQ 

GET  ENQUIRY 

JMP 

TTY  1  ♦  1 

SEND  TO  201  OUTPUT  BUFFER 

TTYS 

SOC 

1  1 

STEXT  "  -- 

DATA  SET 

NOT  CONNECTED” 

TTY6 

SOC 

4 

STEXT  ” 

DELETED” 

FROM 

JMS 

B.K 

GET  KEYBOARD  CHARACTER 

DZM 

T3 

CLEAR  DATA  TRANSFER  POINTER 

SAD 

=  14 

SKIP  IF  NOT  C 

JMP 

FROM1 

FROM  CORE 

ISZ 

T3 

INCREMENT  DATA  TRANSFER  POINTER 

SAD 

=  31 

SKIP  IF  NOT  P 

JMP 

FR0M2 

FROM  PAPER  TAPE 

ISZ 

T3 

INCREMENT  DATA  TRANSFER  POINTER 

SAD 

=  35 

SKIP  IF  NOT  T 

JMP 

FROM  3 

FROM  TELETYPE 

JMP 

IDLES 

CANCEL  COMMAND 
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FROM  1 

LAC  *FROMC 

GET  ADDRESS  OF  TEXT  LIST 

JMP  FROM 4 

TYPE  TEXT  LIST 

FR0M2 

LAC  *FRONP 

GET  ADDRESS  OF  TEXT  LIST 

SKP 

TYPE  TEXT  LIST 

FROM  3 

LAC  *FROMT 

GET  ADDRESS  OF  TEXT  LIST 

FROM  4 

JMS  L.T 

TYPE  TEXT  LIST 

LAC  T3 

GET  DATA  TRANSFER  POINTER 

CLL+RTL 

MULTIPLY  BY  4 

TAD  * FROM  11 

ADD  ADDRESS  OF  TABLE 

DAC  T3 

STORE  REFINED  DATA  TRANSFER  POINTER 

LAC  *FROMTO 

GET  ADDRESS  OF  TEXT  LIST 

JMS  L.T 

TYPE  TEXT  LIST 

JMS  B.K 

GET  KEYBOARD  CHARACTER 

SAD  *14 

SKIP  IF  NOT  C 

JMP  FROM 5 

TO  CORE 

ISZ  T3 

INCREMENT  DATA  TRANSFER  POINTER 

SAD  *31 

SKIP  IF  NOT  P 

JMP  FROM 6 

TO  PAPER  TAPE 

ISZ  T3 

INCREMENT  DATA  TRANSFER  POINTER 

SAD  *35 

SKIP  IF  NOT  T 

JMP  FROM  7 

TO  TELETYPE 

ISZ  T3 

INCREMENT  DATA  TRANSFER  POINTER 

SAD  =15 

SKIP  IF  NOT  D 

JMP  FROM8 

TO  DISPLAY 

JMP  IDLEQ 

CANCEL  COMMAND 

FROM  5 

LAC  *FROMC 

GET  ADDRESS  OF  TEXT  LIST 

JMP  FR0M9 

TYPE  TEXT  LIST 

FROM  6 

LAC  *FROMP 

GET  ADDRESS  OF  TEXT  LIST 

JMP  FR0M9 

TYPE  TEXT  LIST 

FROM  7 

LAC  *FROMT 

GET  ADDRESS  OF  TEXT  LIST 

SKP 

TYPE  TEXT  LIST 

FR0M8 

LAC  *FROMD 

GET  ADDRESS  OF  TEXT  LIST 

FROM  9 

JMS  L.T 

TYPE  TEXT  LIST 

LAC*  T3 

GET  ADDRESS  OF  DATA  TRANSFER 

DAC  T3 

SAVE  TEMPORARILY 

JMP*  T3 

BEGIN  DATA  TRANSFER 

FROM1  1 

SDC  TRCC 
$DC  TRCP 

SDC  TRCT 

A- 9  4 


SDC  TRCD 

SDC  TRPC 

SDC  TRPP 

SDC  TRPT 

SDC  TRPD 

SDC  TRTC 

SDC  TRTP 

SDC  TRTT 

SDC  TRTD 

FROMC 

SDC  2 

STEXT  "CORE" 

FROMP 

SDC  4 

STEXT  "PAPER  TAPE" 

FROMT 

SDC  3 

STEXT  "TELETYPE" 

FROMD 

SDC  3 

STEXT  "DISPLAY" 

FROMTO 

SDC  2 

STEXT  "  TO  " 

TRCC 

JMS  TRBK 

GET  CORE  BLOCK  FROM  KEYBOARD 

LAC  = FROMTO 

GET  ADDRESS  OF  TEXT  LIST 

JMS  L.T 

TYPE  TEXT  LIST 

JMS  OCTAL 5 

GET  ADDRESS  FROM  KEYBOARD 

JMP  IDLED 

CANCEL  COMMAND 

DAC  Tl 

SAVE  ADDRESS 

TRCCI 

LAC*  TRBKL 

GET  WORD  TO  BE  MOVED 

DAC*  Tl 

STORE  IN  NEW  LOCATION 

ISZ  TRBKL 

INCREMENT  SOURCE  POINTER 

ISZ  Tl 

INCREMENT  SINK  POINTER 

ISZ  TRBKC 

INCREMENT  LOC  COUNT  «  SKIP  IF 

JMP  TRCCI 

MOVE  NEXT  WORD 

JMP  IDLE 

GET  NEW  COMMAND 

TRCP 

JMS  TRBK 

GET  CORE  BLOCK  FROM  KEYBOARD 

DONE 
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TRCP1 


TRCP2 


TRCT 


LAW 

100 

GET  ORIGIN  CONTROL  BIT 

DAC 

T3 

SET  CONTROL  MASK 

LAC 

TRBKL 

GET  ORIGIN  OF  BLOCK 

JMS 

TRCP2 

PUNCH  ORIGIN 

LAW 

200 

GET  DATA  CONTROL  BIT 

DAC 

T3 

SET  CONTROL  MASK 

LAC*  TRBKL 

GET  DATA  WORD 

JMS 

TRCP2 

PUNCH  DATA  WORD 

ISZ 

TRBKL 

INCREMENT  POINTER 

ISZ 

TRBKC 

INCREMENT  COUNT  t  SKIP  IF  DONE 

JMP 

TRCP1 

PUNCH  NEXT  WORD 

JMP 

IDLE 

GET  NEW  COMMAND 

$DC 

0 

DAC 

T  4 

SAVE  WORD  TO  BE  PUNCHED 

LRS 

1  4 

SHIFT  HIGH  ORDER  JITS  INTO  POSITION 

AND 

*  77 

TRUNCATE  BITS  FROM  LINK 

XOR 

T3 

SET  CONTROL  BIT 

JMS 

PUNCH 

PUNCH  IMAGE 

LAC 

T4 

GET  WORD  TO  BE  PUNCHED 

LRS 

6 

SHIFT  MIDDLE  BITS  INTO  POSITION 

AND 

=  77 

TRUNCATE  HIGH  ORDER  BITS 

XOR 

T3 

SET  CONTROL  BIT 

JMS 

PUNCH 

PUNCH  IMAGE 

LAC 

T  4 

GET  WORD  TO  BE  PUNCHED 

AND 

=  77 

TRUNCATE  HIGH  ORDER  BITS 

XOR 

T3 

SET  CONTROL  BIT 

JMS 

PUNCH 

PUNCH  IMAGE 

JMP* 

'  TRCP2 

RETURN 

JMS 

TRBK 

GET  CORE  BLOCK  FROM  KEYBOARD 

LAW 

17475 

GET  CARRIAGE  RETURN#  LINE  FEED  CODE 

JMS 

B.T 

TYPE  CARRIAGE  RETURN#  LINE  FEED 

LAC 

TRBKL 

GET  ADDRESS  TO  BE  TYPED 

JMS 

C.B6 

CONVERT  TO  6-BIT  CODE 

TAD 

=770000 

REMOVE  HIGH  ORDER  ZERO 

JMS 

TRKT 

TYPE  ADDRESS 

LAW 

17676 

GET  CODE  FOR  TWO  SPACES 

JMS 

B.T 

TYPE  TWO  SPACES 

LAW 

17770 

LOAD  AC  WITH  -6 
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DAC  T3 

TRCT1  LAW  17677 
JMS  B.T 
LAC*  TRBKL 
JMS  C.B6 
JMS  TRKT 
ISZ  TRBKL 
ISZ  TRBKC 
SKP 

JMP  IDLE 
ISZ  T3 
JMP  TRCTl 
JMP  TRCT+1 


SET  WORD  COUNTER 
GET  CODE  FOR  ONE  SPACE 
TYPE  SPACE 

GET  WORD  TO  BE  TYPED 
CONVERT  TO  6- BIT  CODE 
TYPE  WORD 

INCREMENT  LOCATION  POINTER 

INCREMENT  COUNT  6  SKIP  IF  DONE 

TYPE  NEXT  WORD 

GET  NEW  COMMAND 

SKIP  IF  END  OF  LINE 

TYPE  NEXT  WORD 

BEGIN  NEW  LINE 


TRCD  JMS  TRBK 
LAC  TRBKC 
TAD  *100 
SMA 

JMP  *  +  3 
LAW  17700 
DAC  TRBKC 
JMS  TRD1 

TRCD 1  LAC  TRBKL 
JMS  C.B6 
TAD  *770000 
JMS  TRD2 
LACQ 
JMS  TRD2 
LAW  17676 
JMS  TRD2 
LAW  17770 
DAC  T3 

TRCD2  LAW  17677 
JMS  TRD2 
LAC*  TRBKL 
JMS  C.B6 
JMS  TRD2 
LACQ 
JMS  TRD2 
ISZ  TRBKL 


GET  CORE  BLOCK  FROM  KEYBOARD 
GET  WORD  COUNT 

MAKE  POSITIVE  IF  NOT  TOO  LARGE 

SKIP  IF  TOO  LARGE 

WORD  COUNT  OK 

LOAD  AC  WITH  -64 

ADJUST  WORD  COUNT 

INITIALIZE  TEXT  LIST  FOR  DISPLAY 

GET  ADDRESS  TO  BE  DISPLAYED 

CONVERT  TO  6- BIT  CODE 

REMOVE  HIGH  ORDER  ZERO 

PUT  HIGH  ORDER  DIGITS  IN  TEXT  LIST 

GET  LOW  ORDER  DIGITS 

PUT  LOW  ORDER  DIGITS  IN  TEXT  LIST 

GET  CODE  FOR  TWO  SPACES 

PUT  IN  TEXT  LIST 

LOAD  AC  WITH  -8 

SET  WORD  COUNTER 

GET  CODE  FOR  ONE  SPACE 

PUT  IN  TEXT  LIST 

GET  WORD  TO  BE  DISPLAYED 

CONVERT  TO  6-BIT  CODE 

PUT  HIGH  ORDER  DIGITS  IN  TEXT  LIST 

GET  LOW  ORDER  DIGITS 

PUT  LOW  ORDER  DIGITS  IN  TEXT  LIST 

INCREMENT  LOCATION  POINTER 
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ISZ 

TR8KC 

INCREMENT  COUNT  A  SKIP  IF  DONE 

JHP 

TRCD3 

PREPARE  NEXT  WORD 

CLC 

GET  THREE  NULL  CHARACTERS 

DAC 

T3 

NULLIFY  ACCUMULATED  CHARACTERS 

JMS 

TRD3 

DISPLAY  TEXT  LIST 

JMP 

IDLE 

GET  NEW  COMMAND 

TRCD3 

ISZ 

T3 

SKIP  IF  END  OF  LINE 

JMP 

TRCD2 

PREPARE  NEXT  WORD 

LAC 

*747575 

GET  CARRIAGE  RETURN#  LINE  FEED  CODE 

JMS 

TRD2 

PUT  IN  TEXT  LIST 

_■ *•-  " 

JMP 

TRCD1 

BEGIN  NEW  LINE 

TRPC 

JMS 

READ 

READ  ONE  TAPE  IMAGE 

SNA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

IDLE 

GET  NEW  COMMAND 

DAC 

T3 

SAVE  TAPE  LINE 

AND 

*300 

GET  CONTROL  BITS 

SAD 

*100 

SKIP  IF  NOT  ORIGIN 

JMP 

TRPC  1 

COMPLETE  ORIGIN 

SAD 

*200 

SKIP  IF  NOT  BINARY  DATA 

JMP 

TRPC2 

COMPLETE  DATA  WORD 

JMS 

READ 

READ  A  TAPE  IMAGE 

SNA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

TRPC 

RESTART  DATA  TRANSFER 

JMP 

*  -  3 

IGNORE  TAPE  IMAGE 

TRPC1 

JMS 

TRPC  3 

FINISH  READING  ORIGIN 

DAC 

T4 

SET  ORIGIN 

JMP 

TRPC 

GET  NEXT  WORD  FROM  TAPE 

TRPC2 

JMS 

TRPC3 

FINISH  READING  DATA  WORD 

DAC*  T4 

LOAD  DATA  WORD 

ISZ 

T4 

INCREMENT  LOCATION  COUNTER 

JMP 

TRPC 

GET  NEXT  WORD  FROM  TAPE 

TRPC  3 

SDC 

0 

JMS 

READ 

GET  SECOND  IMAGE  FROM  TAPE 

LRS 

6 

SHIFT  DATA  BITS  INTO  MO 

LAC 

T3 

GET  HIGH  ORDER  6  BITS 

LLS 

6 

SHIFT  HIGH  ORDER  12  BITS  INTO  AC 

DAC 

T3 

SAVE  HIGH  ORDER  12  BITS 

JMS 

READ 

GET  THIRD  IMAGE  FROM  TAPE 
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LRS  6 
LAC  T3 
LLS  6 
JMP*  TRPC3 

TRPP  JMS  READ 
SAD  *377 
JMP  TRPP 
DAC  T3 
AND  *300 
SAD  *300 
JMS  TRPP3 
LAC  T3 

TRPP!  JMS  PUNCH 
JMS  READ 
SNA 

JMP  TRPP2 
DAC  T3 
JMP  TRPP1 
TRPP2  LAC  T3 

AND  *300 
SAD  *300 
JMS  TRPP3 
JMP  IDLE 
TRPP3  SDC  0 
CLA 

JMS  PUNCH 
JMP*  TRPP3 


SHIFT  DATA  BITS  INTO  MQ 
GET  HIGH  ORDER  12  BITS 
SHIFT  COMPLETED  WORD  INTO  AC 
RETURN 

GET  IMAGE  FROM  PAPER  TAPE 

SKIP  IF  NOT  END-OF-TAPE  GARBAGE 

RESTART  DATA  TRANSFER 

SAVE  TEMPORARILY 

GET  CONTROL  BITS 

SKIP  IF  NOT  ALPHANUMERIC 

PUNCH  END-OF-RECORD  MARK 

GET  IMAGE  READ 

PUNCH  IMAGE 

GET  IMAGE  FROM  PAPER  TAPE 
SKIP  IF  NOT  END  OF  RECORD 
PUNCH  END-OF-RECORD  IF  NECESSARY 
SAVE  TEMPORARILY 
PUNCH  IMAGE 

GET  LAST  IMAGE  PUNCHED 
GET  CONTROL  BITS 
SKIP  IF  NOT  ALPHANUMERIC 
PUNCH  END-OF-RECORD  MARK 
GET  NEW  COMMAND 

GET  END-OF-RECORD  MARK 
PUNCH  END-OF-RECORD  MARK 
RETURN 
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fTlTLE 

IDLE* TIME  TASK  (CONTINUED) 

TRPT 

JMS 

READ 

GET  IMAGE  FROM  PAPER  TAPE 

SAD 

•  377 

SKIP  IF  NOT  END- OF* TAPE  GARBAGE 

JMP 

TRPT 

RESTART  DATA  TRANSFER 

DAC 

T3 

SAVE  TEMPORARILY 

AND 

•300 

GET  CONTROL  BITS 

SAD 

*300 

SKIP  IF  BINARY  INFORMATION 

JMP 

TRPT! 

RECORD  IS  ALPHANUMERIC 

JMS 

READ 

GET  IMAGE  FROM  PAPER  TAPE 

SNA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

TRPT 

TRY  TRANSFER  AGAIN 

JMP 

*-3 

GET  NEXT  IMAGE 

TRPT1 

LAW 

17475 

GET  CARRIAGE  RETURN#  LINE  FEED  CODE 

JMS 

B.T 

TYPE  CARRIAGE  RETURN#  LINE  FEED 

LAC 

T3 

GET  FIRST  IMAGE  FROM  TAPE 

TRPT2 

XOR 

•777400 

PRECEDE  WITH  NULL  CHARACTERS 

JMS 

B.T 

TYPE  CHARACTER  FROM  TAPE 

JMS 

READ 

GET  IMAGE  FROM  TAPE 

SNA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

IDLE 

GET  NEW  COMMAND 

JMP 

TRPT2 

TYPE  CHARACTER 

TRPD 

JMS 

READ 

READ  IMAGE  FROM  TAPE 

SNA 

SKIP  IF  NOT  END-OF-RECORD  CHARACTER 

JMP 

TRPD 

RESTART  DATA  TRANSFER 

SAD 

■  375 

SKIP  IF  NOT  LINE  FEED 

JMP 

TRPD 

RESTART  DATA  TRANSFER 

SAD 

■  377 

SKIP  IF  NOT  END-OF-TAPE  GARBAGE 

JMP 

TRPD 

RESTART  DATA  TRANSFER 

DAC 

T  6 

SAVE  TEMPORARILY 

AND 

■  300 

GET  CONTROL  BITS 

SAD 

•  300 

SKIP  IF  BINARY 

JMP 

TRPD1 

RECORD  OK 

JMS 

READ 

READ  IMAGE  FROM  TAPE 

SNA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

TRPD 

TRY  TRANSFER  AGAIN 

JMP 

*-3 

IGNORE  IMAGE 

TRPD1 

JMS 

TRD1 

INITIALIZE  TEXT  LIST 

LAW 

17766 

LOAD  AC  WITH  -10 
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DAC 

T4 

SET  LINE  COUNTER 

LAM 

17676 

LOAD  AC  WITH  *66 

DAC 

T5 

SET  CHARACTER  COUNTER 

LAC 

T6 

6ET  FIRST  CHARACTER 

JMP 

TRPD2+3 

ADD  TO  TEXT  LIST 

TRPD2 

LAW 

17676 

LOAD  AC  WITH  -66 

DAC 

T5 

SET  CHARACTER  COUNTER 

JMS 

READ 

READ  IMAGE  FROM  TAPE 

SAD 

*374 

SKIP  IF  NOT  CARRIAGE  RETURN 

JMP 

TRPD3 

TERMINATE  LINE 

SNA 

SKIP  IF  NOT  END  OF  RECORD 

JMP 

TRPD4 

TERMINATE  TRANSFER 

JMS 

TRD4 

ADD  CHARACTER  TO  TEXT  LIST 

ISZ 

T5 

INCREMENT  CHAR  COUNT  6  SKIP 

IF 

DONE 

JMP 

TRPD2+2 

GET  NEXT  CHARACTER 

TRPD3 

ISZ 

T4 

INCREMENT  COUNTER  4’.  SKIP  IF 

DONE 

SKP 

GET  ANOTHER  LINE 

JMP 

TRPD4 

terminate  transfer 

LAW 

74 

GET  CARRIAGE  RETURN 

JMS 

TRD4 

ADD  TO  TEXT  LIST 

LAW 

75 

GET  LINE  FEED 

JMS 

TRD4 

ADD  TO  TEXT  LIST 

JMP 

TRPD2 

BEGIN  NEW  LINE 

TRPD4 

JMS 

TRD3 

DISPLAY  TEXT  LIST 

JMP 

IDLE 

GET  NEW  COMMAND 

TRTC 

LAW 

17475 

GET  CARRIAGE  RETURN#  LINE  FEED 

CODE 

JMS 

B.T 

TYPE  IT 

JMS 

OCTAL 5 

GET  ADDRESS  FROM  KEYBOARD 

JMP 

TRTC  4 

INTERPRET  AS  COMMAND 

DAC 

T5 

STORE  ADDRESS 

TRTC1 

LAW 

17677 

GET  CODE  FOR  ONE  SPACE 

JMS 

B.T 

TYPE  IT 

LAC*  T5 

GET  CURRENT  CONTENT  OF  WORD 

JMS 

C.B6 

CONVERT  TO  6-BIT  CODE 

JMS 

TRKT 

TYPE  CURRENT  CONTENTS 

LAW 

17677 

GET  CODE  FOR  ONE  SPACE 

JMS 

B.T 

TYPE  IT 

JMS 

OCTAL 6 

GET  NEW  CONTENTS  FROM  KEYBOARD 

JMP 

TRTC3 

DETERMINE  NATURE  OF  FAILURE 
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DAC*  TS 

STORE  NEW  CONTENTS 

TRTC2 

ISZ 

T5 

INCREMENT  STORED  ADDRESS 

LAW 

I  7475 

GET  CARRIAGE  RETURN#  LINE  FEED  CODE 

JMS 

B.T 

TYPE  CARRIAGE  RETURN#  LINE  FEED 

LAC 

T5 

GET  CURRENT  ADDRESS 

JMS 

C.B6 

CONVERT  TO  6-BIT  CODE 

TAD 

*770000 

REMOVE  HIGH  ORDER  ZERO 

JMS 

TRKT 

TYPE  CURRENT  ADDRESS 

JMP 

TRTCi 

TYPE  CONTENTS  OF  CURRENT  LOCATION 

TRTC3 

SAD 

*74 

SKIP  IF  NOT  CARRIAGE  RETURN 

JMP 

TRTC2 

LEAVE  WORD  UNCHANGED 

JMP 

TRTC 

BEGIN  INTERPRETATION  OF  NEW  BLOCK 

TRTC4 

DAC 

T3 

SAVE  KEYBOARD  CHARACTER 

LAW 

10 

GET  TELEPRINTER  MASK 

JMS 

T.R 

RELEASE  TELEPRINTER 

JMP 

1 DLE+6 

INTERPRET  CHARACTER  AS  COMMAND 

TRTP 

CLA 

GET  END-OF-RECORD  MANK 

JMS 

PUNCH 

PUNCH  IT 

LAW 

17475 

GET  CARRIAGE  RETURN#  LINE  FEED  CODE 

JMS 

B.T 

TYPE  CARRIAGE  RETURN#  LINE  FEED 

TRTP1 

JMS 

ECHO 

ECHO  KEYBOARD  CHARACTER 

SAD 

*77 

SKIP  IT  NOT  NULL  CHARACTER 

JMP 

TRTP2 

TERMINATE  TRANSFER 

XOR 

*300 

SET  ALPHANUMERIC  CONTROL  BITS 

JMS 

PUNCH 

PUNCH  CHARACTER 

JMP 

TRTP1 

GET  NEXT  CHARACTER 

TRTP2 

CLA 

GET  END-OF-RECORD  MARK 

JMS 

PUNCH 

PUNCH  IT 

JMP 

IDLE 

GET  NEW  COMMAND 

TRTT 

LAW 

17475 

GET  CARRIAGE  RETURN#  LINE  FEED  CODE 

JMS 

B.T 

TYPE  IT 

JMS 

ECHO 

ECHO  KEYBOARD  CHARACTER 

SAD 

*77 

SKIP  IF  NOT  NULL  CHARACTER 

JMP 

IDLE 

GET  NEW  COMMAND 

JMP 

*-3 

GET  NEXT  CHARACTER 

TRTD 

LAW 

17766 

LOAD  AC  WITH  -10 

DAC 

T4 

INITIALIZE  LINE  COUNTER 
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JMS 

TRD1 

INITIALIZE  TEXT  LIST 

TRTD1 

LAW 

1747  5 

GET  CARRIAGE  RETURN*  LINE  FEED  CODE 

JMS 

B.T 

TYPE  CARRIAGE  RETURN*  LINE  FEED 

LAW 

17700 

LOAD  AC  WITH  *64 

DAC 

T5 

INITIALIZE  CHARACTER  COUNTER 

TRTD2 

JMS 

ECHO 

ECHO  KEYBOARD  CHARACTER 

SAD 

■  77 

SKIP  IF  NOT  NULL  CHARACTER 

JMP 

TRTD4 

DISPLAY  TEXT  LIST 

SAD 

■  74 

SKIP  IF  NOT  CARRIAGE  RETURN 

JMP 

TRTD3 

TERMINATE  LINE 

JMS 

TRD4 

ADD  CHARACTER  TO  TEXT  LIST 

ISZ 

T5 

SKIP  IF  END  OF  LINE 

JMP 

TRTD2 

GET  NEXT  CHARACTER 

TRT03 

ISZ 

T4 

INCREMENT  LINE  COUNT  <  SKIP  IF  DONE 

SKP 

TERMINATE  LINE 

JMP 

TRTD4 

TERMINATE  TRANSFER 

LAW 

74 

GET  CARRIAGE  RETURN  CODE 

JMS 

TRD4 

ADD  TO  TEXT  LIST 

LAW 

75 

GET  LINE  FEED  CODE 

JMS 

TRD4 

ADD  TO  TEXT  LIST 

LAW 

75 

GET  LINE  FEED  CODE 

JMS 

TRD4 

ADD  TO  TEXT  LIST 

JMP 

TRTDI 

BEGIN  NEW  LINE 

TRTD4 

JMS 

TRD3 

DISPLAY  TEXT  LIST 

JMP 

IDLE 

GET  NEW  COMMAND 

ECHO 

SDC 

0 

JMS 

B.K 

GET  CHARACTER  FROM  KEYBOARD 

DAC 

T6 

SAVE  TEMPORARILY 

XOR 

■777700 

PRECEDE  WITH  NULL  CHARACTERS 

JMS 

B.T 

ECHO  CHARACTER  ON  TELEPRINTER 

LAC 

T6 

GET  CHARACTER  FOR  RETURN 

JMP*  ECHO 

RETURN 

PUNCH 

SDC 

0 

JMS 

B.P 

SEND  IMAGE  TO  PUNCH 

SKP 

PUNCH  OUT  OF  TAPE 

JMP* 

>  PUNCH 

RETURN 

LAC 

■PUNCH  1 

GET  ADDRESS  OF  TEXT  LIST 

JMS 

L.T 

TYPE  TEXT  LIST 

i 
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JMP  IDLE 

PUNCH 1  SDC  7 

SDC  747531 

STEXT  ”UNCH  OUT  OF 

READ  SDC  0 

JMS  B.R 
SKP 

JMP*  READ 
LAC  *READ1 
JMS  L.T 
JMP  IDLE 

READ1  SDC  7 

SDC  7  47533 

STEXT  "EADER  OUT  OF 

TRD1  SDC  0 
LAC  27 
LMG 

LAC  26 
SZA 

JMS  S.TR 
NOP 

LAC  27 
SZA 

JMS  L.L 
DZM  27 
DZM  TRDT 
LAC  *TRDT 
DAC  TRDP 
CLC 

DAC  T3 
JMP*  TRD1 

TRD2  SDC  0 

ISZ  TRDT 
ISZ  TRDP 
DAC*  TRDP 


GET  NEW  COMMAND 


TAPE” 


GET  IMAGE  FROM  READER  BUFFER 

READER  OUT  OF  TAPE 

RETURN 

GET  ADDRESS  OF  TEXT  LIST 
TYPE  TEXT  LIST 
GET  NEW  COMMAND 


TAPE” 


GET  POINTER  TO  LEAF 

SET  UP  PARAMETER 

GET  POINTER  TO  LEVEL 

SKIP  IF  NO  LEVEL 

REMOVE  LEAF  FROM  LEVEL 

LEAF  OR  LEVEL  DIDN'T  EXIST 

GET  ADDRESS  OF  LEAF 

SKIP  IF  NO  LEAF 

DESTROY  LEAF 

INDICATE  NO  LEAF 

CLEAR  TEXT  LIST  COUNT 

GET  ADDRESS  OF  TEXT  LIST 

INITIALIZE  TEXT  LIST  POINTER 

GET  3  NULL  CHARACTERS 

STORE  NULL  CHARACTERS 

RETURN 


INCREMENT  TEXT  LIST  COUNT 
INCREMENT  TEXT  LIST  POINTER 
STORE  NEW  TEXT  WORD 
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TRD3 


TRD31 


TRD4 


JMP*  TRD2 

return 

SDC  0 

LAC  T3 

GET  REMAINING  CHARACTERS 

JMS  TRD2 

PUT  IN  TEXT  LIST 

LAC  26 

GET  ADDRESS  OF  LEVEL 

SNA 

SKIP  IF  LEVEL  EXISTS 

JMP  TRD3I 

DISPLAY  STORAGE  EXCEEDED 

LAC  *TRDT 

GET  ADDRESS  OF  TEXT  LIST 

JMS  L.D 

CREATE  TEXT  LEAF 

JMP  TR03I 

STORAGE  EXCEEDED 

DAC  27 

SAVE  ADDRESS  OF  LEAF 

LMQ 

set  up  parameter 

LAC  26 

GET  ADDRESS  OF  LEVEL 

JMS  S.TI 

INSERT  LEAF 

JMP  TRD31 

STORAGE  EXCEEDED 

JMP*  TRD3 

RETURN 

LAC  ***3 

GET  ADDRESS  OF  TEXT  LIST 

JMS  L*T 

TYPE  DIAGNOSTIC 

JMP  IDLE 

SDC  12 

SDC  7  47577 

GET  NEW  COMMAND 

STEXT  "NOT  ENOUGH 

DISPLAY  STORAGE" 

SDC  0 

LRS  6 

SHIFT  CHARACTER  INTO  MO 

LAC  T3 

GET  PREVIOUS  CHARACTERS 

LLS  6 

SHIFT  ALL  CHARACTERS  INTO 

DAC  T3 

SAVE  CHARACTERS 

AND  *770000 

GET  HIGH  ORDER  CHARACTER 

SAD  *770000 

SKIP  IF  NOT  NULL 

JMP*  TRD4 

RETURN 

LAC  T3 

GET  WORD  OF  3  CHARACTERS 

JMS  TRD2 

ADD  TO  TEXT  LIST 

CLC 

GET  3  NULL  CHARACTERS 

DAC  T3 

STORE  NULL  CHARACTERS 

JMP*  TRD4 

SDS  351 

RETURN 

TROT 
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STC 


OCTAL  I 


OCTAL 5 


SDC 

0 

LAC 

*D 

DAC 

DHAL+7 

JMS 

DW 

LAW 

STORE 

DAC 

T! 

IOT 

7704 

DZM* 

'  T1 

ISZ 

Tl 

JMP 

*-2 

IOT 

7702 

JMP* 

STC 

SDC 

0 

JMS 

B.K 

TAD 

SPA 

«-I0 

JMP 

*♦3 

TAD 

*10 

JMP* 

OCTAL  1 

DAC 

T3 

XOR 

*70 

JMS 

B.T 

LAC 

T3 

LRS 

3 

LAC 

T  4 

LLS 

3 

DAC 

T4 

ISZ 

OCTAL  1 

JMP* 

OCTAL  1 

SDC 

0 

DZM 

T  4 

JMS 

OCTAL  1 

JMP* 

OCTAL 5 

JMS 

OCTAL 1 

JMP* 

OCTAL  5 

JMS 

OCTAL  1 

JMP* 

OCTAL 5 

JMS 

OCTAL  1 

GET  ADDRESS  OF  HIGHEST  ACTIVE  LEVEL 

REMOVE  ALL  NODES  FROM  HAL 

WAIT  FOR  DISPLAY  TO  RECOVER 

GET  INITIAL  COUNTER  VALUE 

SET  POINTER  i  COUNTER 

LEAVE  EXTEND  MODE 

CLEAR  STORAGE  LOCATION 

INCREMENT  POINTER  *  COUNTER 

CLEAR  NEXT  STORAGE  LOCATION 

ENTER  EXTEND  MODE 

RETURN 


GET  KEYBOARD  CHARACTER 
MAKE  NEGATIVE  IF  OCTAL 
SKIP  IF  NOT  OCTAL  DIGIT 
OCTAL  DIGIT  TYPED 
RESTORE  CHARACTER 
INDICATE  FAILURE 
SAVE  OCTAL  INFORMATION 
CONVERT  TO  6-BIT  CODE 
TYPE  OCTAL  DIGIT 
GET  OCTAL  INFORMATION 
SHIFT  DIGIT  INTO  MO 
GET  RECORDED  DIGITS 
CONCATENATE  NEW  DIGIT 
RECORD  NEW  WORD 
INDICATE  SUCCESS 
RETURN 


CLEAR  OCTAL  RECORDING  WORD 
GET  OCTAL  DIGIT  FROM  KEYBOARD 
NON-OCTAL  CHARACTER  TYPED 
GET  OCTAL  DIGIT  FROM  KEYBOARD 
NON-OCTAL  CHARACTER  TYPED 
GET  OCTAL  DIGIT  FROM  KEYBOARD 
NON-OCTAL  CHARACTER  TYPED 
GET  OCTAL  DIGIT  FROM  KEYBOARD 
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OCTAL  6 


TRKT 


TRBK 


JMP*  OCTAL 5 

NON-OCTAL  CHARACTER  TYPED 

JMS  OCTAL 1 

GET  OCTAL  CHARACTER  PROM  KEYBOARD 

JMP*  OCTAL 5 

NON-OCTAL  CHARACTER  TYPED 

ISZ  OCTAL 5 

INDICATE  SUCCESS 

JMP*  OCTAL 5 

RETURN 

SDC  0 

JMS  OCTAL 5 

GET  5  OCTAL  DIGITS  PROM  KEYBOARD 

JMP*  OCTAL 6 

NON-OCTAL  CHARACTER  TYPED 

JMS  OCTAL! 

GET  OCTAL  DIGIT  FROM  KEYBOARD 

JMP*  OCTAL 6 

NON-OCTAL  CHARACTER  TYPED 

ISZ  OCTAL 6 

INDICATE  SUCCESS 

JMP*  OCTAL 6 

RETURN 

SDC  0 

DAC  T1 

SAVE  HIGH  ORDER  DIGITS 

LACQ 

GET  LOW  ORDER  DIGITS 

DAC  T  6 

SAVE  LOW  ORDER  DIGITS 

LAC  T1 

GET  HIGH  ORDER  DIGITS 

JMS  B»T 

TYPE  HIGH  ORDER  DIGITS 

LAC  T6 

GET  LOW  ORDER  DIGITS 

JMS  B»T 

TYPE  LOW  ORDER  DIGITS 

JMP*  TRKT 

RETURN 

SDC  0 

LAC  -TRBKF 

GET  ADDRESS  OP  TEXT  LIST 

JMS  L.T 

TYPE  TEXT  LIST 

JMS  OCTAL 5 

GET  LOW  ADDRESS  FROM  KEYBOARD 

JMP  IDLEQ 

CANCEL  COMMAND 

DAC  TRBKL 

STORE  LOW  ADDRESS 

LAW  16277 

GET  COMMA  CODE 

JMS  B.T 

TYPE  COMMA 

JMS  OCTALS 

GET  HIGH  ADDRESS  PROM  KEYBOARD 

JMP  IDLEQ 

CANCEL  COMMAND 

CMA 

FORM  ONE'S  COMPLEMENT 

TAD  TRBKL 

ADD  LOW  ADDRESS 

SMA 

SKIP  IF  PROPERLY  ORDERED  ADDRESSES 

JMP  IDLEQ 

CANCEL  COMMAND 

DAC  TRBKC 

STORE  LOCATION  COUNT 

LAW  15177 

GET  RIGHT  PARENTHESIS  CODE 
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JMS  B#T  TYPE  RIGHT  PARENTHESIS 

JMP*  TRBK  RETURN 

TRBKF  SDC  3 

SDC  747513 
STEXT  "LOCKC" 
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STITLE  highest  active  level 

D  SDC  757 

SDC  6201 
SDC  6301 
SDC  1400 
DHAL  SOC  DWT 
SDC  2010 
SDC  XP 
SDC  1105 
SDC  1000 
SDC  5000 
SDC  2001 
SDC  D 

SEND 


\ 
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SUMMARY  OF  SYSTEM  SUBROUTINES 


THE  FOLLOWING  TABLE  OF  SYSTEM  SUBROUTINES  IS  PROVIDED  AS  A 
REFERENCE  TO  FACILITATE  THE  WRITING  OF  USER  PROGRAMS.  THE 
VARIOUS  COLUMNS  ARE  INTERPRETED  AS  FOLLOWS: 


NAME  -- 
ENTRY  POINT  — 
SECTION  -- 

FAILURE  RETURN 
DELAY  POSSIBLE 


SYMBOLIC  NAME  OF  THE  SYSTEM  SUBROUTINE 

ADDRESS  AT  WHICH  THE  SUBROUTINE  STARTS 

SECTION  OF  THE  REPORT  IN  WHICH  THE 
SUBROUTINE  IS  DESCRIBED 

WHETHER  OR  NOT  A  FAILURE  RETURN  EXISTS 

WHETHER  OR  NOT  OTHER  TASKS  MAY  BE 
EXECUTED  BEFORE  THE  SUBROUTINE  RETURNS 


NAME 

ENTRY  POINT 

SECTION 

FAILURE  RETURN 

DELAY  POSSIBLE 

B.  FI 

I  40 

3.4.  1 

YES 

YES 

B.FO 

I  42 

3.  4.  1 

YES 

YES 

B.K 

150 

3*4*3 

NO 

YES 

B.P 

I  46 

3.  4.2 

YES 

YES 

8.R 

I  44 

3*4.2 

YES 

YES 

B.T 

152 

3*  4.  3 

NO 

YFS 

C.6A 

130 

3.3 

NO 

NO 

C*  A6 

132 

3.  3 

NO 

NO 

C.B6 

126 

3.3 

NO 

NO 

C.BC 

136 

3.3 

NO 

NO 

C.CB 

134 

3*3 

NO 

NO 

D*  A 

206 

3.  7 

NO 

NO 

D.D 

202 

3.  7 

NO 

NO 

D.E 

200 

3.  7 

NO 

NO 

D.O 

214 

3.7 

YES 

NO 

D.P 

204 

3.  7 

NO 

NO 

D.X 

212 

3.  7 

NO 

NO 

D.Y 

210 

3.  7 

NO 

NO 

B-l 
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NAME 

ENTRY  POINT 

SECTION 

FAILURE  RETURN 

DELAY  POSSIBLE 

L.O 

2  72 

3.  1  I 

YES 

NO 

L.L 

274 

3.  1  1 

NO 

NO 

L.T 

2  70 

3.  1  1 

NO 

YES 

N.A 

154 

3.  5 

NO 

YES 

N.C 

156 

3.  5 

NO 

YES 

N.D1 

160 

3.  5 

NO 

NO 

N.D2 

162 

3.  5 

NO 

NO 

N.D3 

164 

3.  5 

NO 

NO 

P.D 

172 

3*6 

NO 

NO 

P.E 

1  70 

3.6 

NO 

NO 

P.R 

1  74 

3.6 

NO 

NO 

P.S 

1  76 

3.  6 

NO 

NO 

P.T 

166 

3.  6 

NO 

NO 

0.  A 

102 

3.  I 

YES 

NO 

Q.C 

100 

3.  1 

NO 

NO 

Q.F 

106 

3.  1 

YES 

NO 

0. 1 

104 

3.  1 

YES 

NO 

S.LBD 

254 

3.  10 

NO 

NO 

S.LBE 

252 

3.  10 

NO 

NO 

S.LC 

256 

3.  10 

NO 

NO 

S.LH 

242 

3.  10 

NO 

NO 

S.LL 

264 

3.10 

NO 

NO 

S.LN 

266 

3.  10 

NO 

NO 

S.LP 

250 

3.  10 

NO 

NO 

S.LS 

262 

3.  10 

NO 

NO 

S.LU 

260 

3.  10 

NO 

NO 

S.  LX 

246 

3.  10 

NO 

YES 

S.LY 

244 

3.  10 

NO 

YES 

S.TD 

234 

3.9 

YES 

NO 

S.TI 

236 

3.9 

YES 

NO 

S.TL 

232 

3.9 

YES 

NO 

S.TR 

240 

3.9 

YES 

YES 

T.A 

116 

3.2 

NO 

YES 

T.F 

114 

3.2 

-  - 

-  - 

T.L 

122 

3.2 

-  - 

-  - 

T.P 

1  12 

3.2 

-  - 

T.R 

120 

3.2 

NO 

NO 
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NAME 

ENTRY  POINT 

SECTI 

T.S 

1  10 

3.2 

T.U 

124 

3.2 

X.  I 

216 

3.8 

X.R 

220 

3.8 

X.S 

224 

3.8 

X.T 

222 

3.8 

x.x 

230 

3.8 

X.  Y 

226 

3  •  R 

FAILURE  RETURN  DELAY  POSSIBLE 


NO 

NO 

NO 

NO 

NO 

NO 

NO 

NO 

NO 

NO 

NO 

NO 

NO 

NO 
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SUMMARY  OF  IOT  INSTRUCTIONS 


STATUS  WORDS 

ALL  BITS  WHOSE  INTERPRETATIONS  ARE  NOT  SPECIFIED  BELOW 
ARE  NOT  USED. 

POP- 9  I/O  STATUS 
BIT  INTERPRETATION 


0  INTERRUPTS  ARE  ENABLED 

1  READER  FLAG 

2  PUNCH  FLAG 

3  KEYBOARD  FLAG 

A  TELEPRINTER  FLAG 

6  CLOCK  FLAG 

7  CLOCK  ENABLED 

8  READER  OUT-OF-TAPE  FLAG 

9  PUNCH  OUT-OF-TAPE  FLAG 

11  201  DATAPHONF  TRANSMIT  FLAG 

12  201  DATAPHONt  RECEIVE  FLAG 

201  DATAPHONE  STATUS 
BIT  INTERPRETATION 


0  INTERRUPT  PENDING 

1  DATA  LOST 

2  PARITY  ERROR 

3  REQUEST  TO  SEND 

A  TRANSMIT  REQUEST 

5  CLEAR  TO  SEND 

6  CHECK  PARITY 

7  TEXT  MODE 

8  SET  READY 

9  TERMINAL  READY 

10  RING 

11  CARRIER  DETECTED 

12  FRAME  SIZE  REGISTER  BIT  0 

13  FRAME  SIZE  REGISTER  BIT  1 

14  FRAME  SIZE  REGISTER  BIT  2 

15  FRAME  SIZE  REGISTER  BIT  3 


C-l 
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BIT  INTERPRETATION 


16  TRANSMIT  STATE 

17  RECEIVE  STATE 

DISPLAY  STATUS  WORD  1 
BIT  INTERPRETATION 


6  LIGHT  PEN  FLAG 

7  VERTICAL  EDGE  FLAG 

8  HORIZONTAL  EDGE  FLAG 

9  INTERNAL  STOP  FLAG 

10  SECTOR  0  FLAG  (DISPLAY  COORDINATES  ARE  ON  SCREEN) 

11  CONTROL  STATE 

12  MANUAL  INTERRUPT  FLAG 

13  PUSH  BUTTON  FLAG 

14  DISPLAY  INTERRUPT  PENDING 

15  BREAK  FIELD  REGISTDR  BIT  0 

16  BREAK  FIELD  REGISTER  BIT  1 

17  BREAK  FIELD  REGISTER  BIT  2 

DISPLAY  STATUS  WORD  2 


BIT 

INTERPRETATION 

6 

0  --  LEFT  HAND  INCREMENT  BEING  EXECUTED 

1  --  RIGHT  HAND  INCREMENT  BEING  EXECUTED 

7 

LIGHT  PEN  ENABLED 

8 

BIT  0  OF  Y  POSITION 

REGISTER 

9 

BIT  0  OF  X  POSITION 

REGISTER 

10 

SCALE  BIT  0 

1  1 

SCALE  BIT  1 

12 

MODE  BIT  0 

13 

MODE  BIT  1 

14 

MODE  BIT  2 

15 

INTENSITY  BIT  0 

16 

INTENSITY  BIT  ! 

1  7 

INTENSITY  BIT  2 
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DISPLAY  INITIAL  CONDITIONS 
BIT  INTERPRETATION 


6  ENABLE  EDGE  FLAG  INTERRUPT 

7  ENABLE  LIGHT  PEN  FLAG  INTERRUPT 

8  0  --  DO  NOT  DISABLE  LIGHT  PEN  AFTER  RESUMING  DISPLAY 
1  --  ENABLE  LIGHT  PEN  ACCORDING  TO  BIT  9 

9  0  --  ENABLE  LIGHT  PEN  AFTER  FIRST  DATA  REQUEST  AFTER 
RESUMING  DISPLAY 

1  --  DO  NOT  ENABLE  LIGHT  PEN  AFTER  RESUMING  DISPLAY 

10  BIT  0  OF  Y  DIMENSION 

11  BIT  I  OF  Y  DIMENSION 

12  BIT  0  OF  X  DIMENSION 

13  BIT  1  OF  X  DIMENSION 

14  INTENSIFY  ALL  POINTS 

15  INHIBIT  EDGE  FLAGS 

16  ENABLE  PUSH  BUTTON  INTERRUPT 

17  ENABLE  INTERNAL  STOP  INTERRUPT 

BREAK  FIELD  LOAD  PARAMETER 
BIT  INTERPRETATION 


6  LOAD  BREAK  FIELD  ACCORDING  TO  BITS  7-9 

7  BREAK  FIELD  BIT  0 

8  BREAK  FIELD  BIT  1 

9  BREAK  FIELD  BIT  2 

10  LOAD  PUSH  BUTTONS  ACCORDING  TO  bITS  11-17 

11  0  - -  LOAD  PUSH  BUTTONS  0-S 

1  --  LOAD  PUSH  BUTTONS  6-11 


12 

PUSH 

BUTTON 

0 

OR 

6 

1  3 

PUSH 

BUTTON 

1 

OR 

7 

1  4 

PUSH 

BUTTON 

2 

OR 

8 

1  5 

PUSH 

BUTTON 

3 

OR 

9 

1  6 

PUSH 

BUTTON 

4 

OR 

10 

1  7 

PUSH 

BUTTON 

5 

OR 

1  1 
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IOT  INSTRUCTIONS 

EACH  IOT  INSTRUCTION  IS  FORMED  RY  ADDING  THE  CODE  FROM 
THE  TABLE  BELOW  TO  700000.  THE  AC  MAY  BE  CLEARED  AT  E VENT  TIME 
1  OF  THE  IOT  INSTRUCTION  HY  SFTTING  BIT  14  IN  THE  INSTRUCTION. 

CODE  FUNCTION 

0002  ENABLE  INTERRUPTS 

0042  DISABLE  INTERRUPTS 

0001  SKIP  IF  CLOCK  FLAG  IS  SET 

0004  CLEAR  CLOCK  FLAG  AND  DISABLE  CLOCK 

0044  CLEAR  CLOCK  FLAG  AND  ENABLE  CLOCK 

0101  SKIP  IF  READER  FLAG  IS  SET 

0102  CLEAR  READER  FLAG*  INCLUSIVE  OR  CONTENT  OF  READER  BUFFER 
INTO  AC 

0104  SELECT  READER  IN  ALPHANUMERIC  MODE 
0144  SELECT  READER  IN  BINARY  MODE 
0201  SKIP  IF  PUNCH  FLAG  IS  SET 
0202  CLEAR  PUNCH  FLAG 

0206  PUNCH  TAPE  IMAGE  FROM  BITS  10-17  OF  AC 

0244  PUNCH  TAPE  IMAGE  IN  BINARY  MODE  FROM  BITS  12-17  OF  AC 

0301  SKIP  IF  KEYBOARD  FLAG  IS  SET 

0302  OR  CONTENT  OF  KEYBOARD  BUFFER  INTO  BITS  10-17  OF  AC 
0304  OR  I/O  STATUS  WORD  INTO  AC 


05 


CODE  FUNCTION 

0401  SKIP  IF  TELEPRINTER  FLAG  IS  SET 
0402  CLEAR  TELEPRINTER  FLAG 

0406  LOAD  TELEPRINTER  BUFFER  FROM  BITS  10-17  OF  THE  AC 

0501  OR  DISPLAY  PUSH-DOWN  POINTER  INTO  BITS  6-17  OF  THE  AC 

0502  OR  BITS  I- 12  OF  THE  DISPLAY  CONTROL  X  POSITION  REGISTER 
INTO  BI TS  6-17  OF  THE  AC 

0601  OR  BITS  3-14  OF  THE  DISPLAY  ADDRESS  COUNTER  INTO  BITS 
6-17  OF  THE  AC 

0602  OR  DISPLAY  STATUS  WORD  I  INTO  BITS  6-17  OF  THE  AC 
0621  OR  PUSH  BUTTONS  0- II  INTO  BITS  6-17  OF  THE  AC 
0642  SKIP  IF  THE  LIGHT  PEN  FLAG  IS  SET 

0645  SET  DISPLAY  PUSH  DOWN  POINTER  FROM  BITS  6-17  OF  THE  AC 

0665  SET  DISPLAY  INITIAL  CONDITIONS  FROM  BITS  6-17  OF  THE  AC 

0701  SKIP  IF  DISPLAY  EXTERNAL  STOP  FLAG  IS  SET 

0702  SKIP  IF  EITHER  THE  VERTICAL  OR  HORIZONTAL  EDGE  FLAG  IS 
SET 

0704  STOP  DISPLAY  (EXTERNAL) 

0705  LOAD  BREAK  FIELD  AND/OR  PUSH  BUTTONS  FROM  THE  BREAK  FIELD 
PARAMETER  IN  BITS  6-17  OF  THE  AC 

0721  SKIP  IF  DISPLAY  INTERNAL  STOP  FLAG  IS  SET 

0722  SKIP  IF  MANUAL  INTERRUPT  FLAG  IS  SET 


06 


CODE  FUNCTION 

1103  SET  THE  A/U  CONVERTER  MULTIPLEXOR  TO  THE  CHANNEL 
SPECIFIED  IN  BITS  12-17  OF  THE  AC 

1201  INCREMENT  THE  A/D  CONVERTER  MULTIPLEXOR  CHANNEL  NUMBER 
(CHANNEL  0  FOLLOWS  CHANNEL  77) 

1202  OR  A/D  CONVERTER  MULTIPLEXOR  CHANNEL  NUMBER  INTO  BITS 
12-17  OF  THE  AC 

1301  SKIP  IF  THE  A/D  CONVERTER  FLAG  IS  SET 

1302  OR  A/D  CONVERTER  BUFFER  INTO  BITS  0-11  OF  THE  AC 

1304  SELECT  THE  A/D  CONVERTER 

1401  SKIP  IF  THE  DATAPHONE  TRANSMIT  FLAG  IS  SET 

1402  OR  THE  DATAPHONE  STATUS  WORD  INTO  THE  AC 

1404  INVERT  THE  DATAPHONE  STATUS  BITS  WHEREVER  A  1  APPEARS  IN 
THE  CORRESPONDING  POSITION  IN  THE  AC 

1421  SKIP  IF  DATAPHONF  MASK  SKIP  FLAG  IS  SET 

1422  SET  THE  DATAPHONE  MASK  SKIP  FLAG  IF  ALL  BITS  IN  THE 
DATAPhONE  STATUS  WORD  ARE  I ’S  WHEREVER  A  1  APPEARS  IN  THE 
CORRESPONDING  POSITION  IN  THE  AC 

1424  CLEAR  DATAPHONE  MASK  SKIP  FLAG 

1441  SKIP  IF  THE  DATAPHONE  RECEIVE  FLAG  IS  SET 

1442  CLEAR  THE  DATAPHONE  TRANSMIT  AND  RECEIVE  FLAGS 

1444  CLEAR  ALL  DATAPHONE  FLAGS  AND  REGISTERS 

1601  CLEAR  DISPLAY  FLAGS 
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CODE  FUNCTION 

1602  OR  BITS  1-12  OF  THE  DISPLAY  Y  POSITION  REGISTER  INTO  BITS 
6-17  OF  THE  AC 

1604  RESUME  DISPLAY  AFTER  INTERNAL  STOP 

1 605  INITIALIZE  DISPLAY  AT  ADDRESS  GIVEN  IN  BITS  6-17  OF  THE 
AC 

1622  OR  DISPLAY  STATUS  WORD  2  INTO  BITS  6-17  OF  THE  AC 

3301  SKIP  IF  THE  TELETYPE  IS  CONNECTED 

3302  CLEAR  ALL  FLAGS 

3344  RESTORE  THE  LINK  AND  EXTEND  MODE  STATUS  FROM  INFORMATION 


CONTAINED  IN  THE  LOCATION 
5-17  OF  THE  FOLLOWING  WORD 

WHOSE  ADDRESS 
IN  MEMORY 

IS 

GI  VEN 

IN 

BI  TS 

5101 

LOAD 

D/A 

CONVERTER 

CHANNEL 

#1 

FROM 

BI  TS 

0-  I 

1 

OF 

THE 

AC 

5102 

LOAD 

D/A 

CONVERTER 

CHANNEL 

#2 

FROM 

BITS 

0-  1 

1 

OF 

THE 

AC 

5104 

LOAD 

D/A 
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APPENDIX  D 


ASSEMBLY  LANGUAGE 


THE  ASSEMBLY  LANGUAGE  WHICH  IS  USED  IN  THE  EXAMPLES  IN 
THE  REPORT  IS  THE  SOURCE  LANGUAGE  FOR  THE  ASSEMBLER  (TO  BE 
DESCRIBED  IN  A  FORTHCOMING  REPORT)  WHICH  RUNS  UNDER  THE 
EXECUTIVE  SYSTEM.  THIS  LANGUAGE  IS  DESCRIBED  BRIEFLY  BELOW. 

ALL  MNEMONICS  ARE  FROM  ONE  TO  SIX  CHARACTERS  LONG.  THE 
FIRST  CHARACTER  MUST  BE  AN  ALPHABETIC  CHARACTER  OR  A  PERIOD  (.)# 
AND  ALL  OTHER  CHARACTERS  MUST  BE  ALPHANUMERIC  OR  PERIODS.  A 
MNEMONIC  MAY  REPRESENT  ANY  ONE  OF  THE  FOLLOWING  ENTITIES* 

(1)  A  PROGRAM  SYMBOL  (I.  Eo  A  SYMBOL  WHOSE  VALUE  IS  USED 
TO  COMPUTE  THE  OPERAND  OF  AN  INSTRUCTION)# 

(2)  AN  INSTRUCTION  CODE#  OR 

(3)  A  PSEUDO-OP  (I.  E.#  AN  INSTRUCTION  TO  THE  ASSEMBLER). 

IF  A  MNEMONIC  IS  USED  TO  REPRESENT  MORE  THAN  ONE  OF  THESE 
ENTITIES#  THE  ASSEMBLER  WILL  RESOLVE  THE  AMBIGUITY  FROM  CONTEXT. 

ALL  NUMBERS  ARE  INTERPRETED  AS  OCTAL  NUMBERS.  NUMBERS 
MAY  REPRESENT  VALUES  OF  PROGRAM  SYMBOLS  ONLY. 

A  SOURCE  LINE  IS  COMPOSED  OF  UP  TO  FOUR  FIELDS.  EACH 
FIELD  IS  DELIMITED  BY  SPACES.  (SEVERAL  CONSECUTIVE  SPACES  ARE 
INTERPRETED  AS  A  SINGLE  SPACE  BY  THE  ASSEMBLER#  EXCEPT  IN  TEXT 
PSEUDO-OP  OPERANDS.)  THE  FOUR  POSSIBLE  FIELDS  (FROM  LEFT  TO 
RIGHT  ON  THE  SOURCE  LINE)  ARE  THE  FOLLOWING* 

(1)  LOCATION  FIELD 

(2)  INSTRUCTION  FIELD 

(3)  OPERAND  FIELD 

(4)  COMMENT  FIELD 

THE  LOCATION  FIELD  CONTAINS  A  MNEMONIC  WHICH  IS  ASSIGNED 
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THE  VALUE  OF  THE  ADDRESS  OF  THE  LOCATION  WHICH  THE  SOURCE  LINE 
REPRESENTS  (UNLESS  THE  INSTRUCTION  FIELD  CONTAINS  ONE  OF  THE 
PSEUDO-OPS  $EQU*  SOPD*  OR  $OPDM).  IF  ThE  FIRST  CHARACTER  ON  THE 
LINE  IS  A  SPACE*  THE  LOCATION  FIELD  IS  NOT  PRESENT. 

THE  INSTRUCTION  FIELD  CONTAINS  ONE  OF  THE  FOLLOWING* 

(1)  A  PSEUDO-OP  SYMBOL* 

(2)  A  MNEMONIC  WHICH  REPRESENTS  AN  INSTRUCTION  WHICH 
REQUIRES  AN  OPERAND*  OR 

(3)  AN  OPERANDLESS  INSTRUCTION  MNEMONIC  OR  A  SET  OF  THESE 
MNEMONICS  SEPARATED  BY  PLUS  SIGNS  (♦>*  WhICH  DENOTE 
••INCLUSIVE  OR"  IN  THIS  FIELD. 

IF  THE  INSTRUCTION  FIELD  CONTAINS  AN  OPERANDLESS  INSTRUCTION 
THE  OPERAND  FIELD  IS  NOT  PRESENT.  INDIRECT  ADDRESSING  IS 
INDICATED  BY  AN  ASTERISK  (*)  APPENDED  TO  ThE  RIGHT  OF  A 
MNEMONIC  WHICH  REPRESENTS  AN  INSTRUCTION  WHICH  REQUIRES  AN 
OPERAND. 


THE  OPERAND  FIELD  CONTAINS  A  SET  OF  PROGRAM  SYMBOLS 

and/or  numbers  separated  by  the  binary  operator  symbols  ••♦•• 

<2 '  S  COMPLEMENT  ADDITION)  AND/OR  ••-"  (2’S  COMPLEMENT  SUB¬ 
TRACTION).  IN  ADDITION*  THE  FIRST  PROGRAM  SYMBOL  OR  NUMBER 
MAY  BE  PRECEEDED  BY  EITHER  OF  THE  UNARY  OPERATORS  ••♦•• 

(UNARY  PLUS)  OR  "-••  (2*S  COMPLEMENT).  LITERALS  ARE  DENOTED 
BY  AN  EQUAL  SIGN  (*)  APPENDED  TO  THE  LEFT  END  OF  THE  OPERAND 
FIELD.  AN  ASTERISK  (*)  REPRESENTS  A  MNEMONIC  WHOSE  VALUE  IS  THE 
ADDRESS  OF  THE  LOCATION  WHICH  THE  SOURCE  LINE  IN  WHICH  IT 
APPEARS  REPRESENTS  (IN  THE  OPERAND  FIELD  ONLY).  THE  LOw  ORDER 
13  BITS  OF  THE  VALUE  OF  THE  EXPRESSION  IN  THE  OPERAND  FIELD 
ARE  ADDED  TO  THE  VALUE  REPRESENTED  BY  THE  INSTRUCTION 
FIELD. 


PSEUDO-OP  SYMBOLS  ARE  WRITTEN  IN  THE  INSTRUCTION 
FIELD  AND  CONSIST  OF  A  DOLLAR  SIGN  (S>  APPENDED  TO  THE  LEFT  OF 
THE  PSEUDO-OP  MNEMONIC.  THE  FOLLOWING  SYMBOLS  ARE  ACCEPTED  BY 
THE  ASSEMBLER* 
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SDC  A  WORD  WHICH  CONTAINS  THE  FULL  18-BIT  VALUE  OF  THE 
EXPRESSION  IN  THE  OPERAND  FIELD  IS  PRODUCED* 

SDS  THE  18-BIT  VALUE  OF  THE  EXPRESSION  IN  THE  OPERAND  FIELD 
IS  ADDED  INTO  THE  LOCATION  COUNTER  WITHIN  THE  ASSEMBLER 
(BY  TWO’S  COMPLEMENT  ADDITION) •  (ALL  MNEMONICS  IN  THE 
OPERAND  FIELD  MUST  BE  PREDEFINED. ) 

SEND  THE  END  OF  THE  SOURCE  PROGRAM  IS  DECLARED. 

SEOU  THE  PROGRAM  SYMBOL  MNEMONIC  IN  THE  LOCATION  FIELD  IS 
ASSIGNED  THE  18-BIT  VALUE  OF  THE  EXPRESSION  IN  THE 
OPERAND  FIELD*  (ALL  MNEMONICS  IN  THE  OPERAND  FIELD  MUST 
BE  PREDEFINED.) 

SOPD  THE  OPERANDLESS  INSTRUCTION  MNEMONIC  IN  THE  LOCATION 

FIELD  IS  ASSIGNED  THE  18-BIT  VALUE  OF  THE  EXPRESSION  IN 
THE  OPERAND  FIELD*  (ALL  MNEMONICS  IN  THE  OPERAND  FIELD 
MUST  BE  PREDEFINED.) 

SOPDM  THE  OPERAND-REQUIRING  INSTRUCTION  MNEMONIC  IN  THE 
LOCATION  FIELD  IS  ASSIGNED  THE  18-BIT  VALUE  OF  THE 
EXPRESSION  IN  THE  OPERAND  FIELD.  (ALL  MNEMONICS  IN  THE 
OPERAND  FIELD  MUST  BE  PREDEFINED.) 

JORG  THE  LOCATION  COUNTER  WITHIN  THE  ASSEMBLER  IS  SET  TO  THE 

18-BIT  VALUE  OF  THE  EXPRESSION  IN  THE  OPERAND  FIELD*  (ALL 
MNEMONICS  IN  THE  OPERAND  FIELD  MUST  BE  PREDEFINED.) 

STEXT  THE  FIRST  CHARACTER  IN  THE  OPERAND  FIELD  IS  TAKEN  AS  A 
BREAK  CHARACTER#  AND  ALL  CHARACTERS  TO  THE  RIGHT  OF  IT 
UP  TO  THE  NEXT  BREAK  CHARACTER  ARE  PACKED  AS  3  6-BIT 
CHARACTER  CODES  PER  WORD.  IF  THE  NUMBER  OF  CHARACTERS 
BETWEEN  THE  BREAK  CHARACTERS  IS  NOT  A  MULTIPLE  OF  3#  THE 
LAST  WORD  GENERATED  IS  PADDED  WITH  NULL  CHARACTER  CODES 
(77). 

S TITLE  ALL  CHARACTERS  TO  THE  RIGHT  OF  THIS  PSEUDO-OP  ARE  TAKEN 
TO  BE  THE  TITLE  OF  THE  CURRENT  SECTION  OF  THE  PROGRAM. 
(THIS  TITLE  IS  TYPED  ON  THE  TELETYPE  DURING  PASS  1  OF  THE 
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ASSEMBLY*  BEGINNING  WITH  THE  FIRST  NON-RLANK  CHARACTER.) 

THE  ASSEMBLER  IGNORES  SOURCE  LINES  WHICH  BEGIN  WITH  AN 
ASTERISK  <*>*  SOURCE  LINES  WHICH  HAVE  NO  FIELDS*  AND  COMMENT 
FIELDS. 


